This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A318833 #7 Sep 16 2018 21:43:04 %S A318833 2,1,1,3,1,8,1,7,7,14,1,14,1,20,23,15,1,20,1,24,33,32,1,26,21,38,25, %T A318833 34,1,22,1,31,53,50,59,38,1,56,63,44,1,30,1,54,53,68,1,50,43,54,83,64, %U A318833 1,56,95,62,93,86,1,52,1,92,75,63,113,46,1,84,113,46,1,74,1,110,83,94,137,54,1,84,79,122,1,72,149,128,143,98,1,82 %N A318833 a(n) = n + A023900(n). %H A318833 Antti Karttunen, <a href="/A318833/b318833.txt">Table of n, a(n) for n = 1..65537</a> %F A318833 a(n) = n + A023900(n). %o A318833 (PARI) %o A318833 A023900(n) = factorback(apply(p -> 1-p, factor(n)[, 1])); %o A318833 A318833(n) = (n+A023900(n)); %Y A318833 Cf. A023900, A318841. %K A318833 nonn %O A318833 1,1 %A A318833 _Antti Karttunen_, Sep 16 2018