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 A324873 #7 May 18 2019 16:54:41 %S A324873 1,2,1,4,1,2,1,8,3,2,1,4,1,2,1,16,1,6,1,4,1,2,1,8,5,2,9,4,1,2,1,32,3, %T A324873 2,1,12,1,2,3,8,1,2,1,4,3,2,1,16,7,10,1,4,1,18,1,8,1,2,1,4,1,2,3,64,1, %U A324873 6,1,4,3,2,1,24,1,2,5,4,1,6,1,16,27,2,1,4,1,2,1,8,1,6,1,4,1,2,5,32,1,14,9,20,1,2,1,8,1 %N A324873 a(n) = gcd(n, A060968(n)). %H A324873 Antti Karttunen, <a href="/A324873/b324873.txt">Table of n, a(n) for n = 1..65537</a> %F A324873 a(n) = gcd(n, A060968(n)). %o A324873 (PARI) %o A324873 A060968(n) = { my(f=factor(n)[, 1]); n*prod(i=if(n%2, 1, 2), #f, if(f[i]%4==1, 1-1/f[i], 1+1/f[i]))*if(n%4, 1, 2); }; \\ From A060968 %o A324873 A324873(n) = gcd(n,A060968(n)); %Y A324873 Cf. A060968, A235866 (positions of ones). %K A324873 nonn %O A324873 1,2 %A A324873 _Antti Karttunen_, May 18 2019