[usth/ICT3.2] Develop web applications

1 files changed, 11 insertions, 0 deletions

diff --git a/usth/ICT3.2/prac/2/6.js b/usth/ICT3.2/prac/2/6.js
new file mode 100644
index 0000000..52cb82a
--- /dev/null
+++ b/usth/ICT3.2/prac/2/6.js
@@ -0,0 +1,11 @@
+const A039943 = [0, 1, 4, 16, 20, 37, 42, 58, 89, 145];  // OEIS
+
+for (i = j = 1; i < 11; ++j) {
+    for (k = j;
+         !A039943.includes(k);
+         k = k.toString().split('').map(n => n*n).reduce((m, n) => m+n));
+    if (k == 1) {
+        console.log(j);
+        i++;
+    }
+}