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 A328231 #8 Oct 09 2019 20:56:14 %S A328231 1,2,3,1,1,2,1,2,1,1,1,1,1,1,3,1,1,2,1,4,7,2,1,4,25,26,9,2,1,1,1,2,33, %T A328231 1,1,1,1,1,1,5,1,1,1,1,1,2,1,1,1,2,3,1,1,2,1,1,1,1,1,2,1,2,3,1,5,2,1, %U A328231 2,1,2,1,2,1,2,3,4,1,2,1,4,1,1,1,4,1,1,3,88,1,1,1,1,93,2,1,32,1,14,1,1,1,1,1,2,1 %N A328231 a(n) = gcd(n, A048673(n)). %H A328231 Antti Karttunen, <a href="/A328231/b328231.txt">Table of n, a(n) for n = 1..65537</a> %F A328231 a(n) = gcd(n, A048673(n)). %o A328231 (PARI) %o A328231 A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961 %o A328231 A048673(n) = (A003961(n)+1)/2; %o A328231 A328231(n) = gcd(n, A048673(n)); %Y A328231 Cf. A003961, A048673. %Y A328231 Cf. also A085731, A322361, A324198, A327858. %K A328231 nonn %O A328231 1,2 %A A328231 _Antti Karttunen_, Oct 08 2019