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 A373835 #6 Jun 19 2024 23:39:54
%S A373835 0,1,1,2,1,1,1,3,2,1,1,1,1,1,2,4,1,1,1,1,2,1,1,1,2,1,3,1,1,3,1,5,2,1,
%T A373835 2,2,1,1,2,1,1,3,1,1,1,1,1,1,2,1,2,1,1,1,2,1,2,1,1,2,1,1,1,6,2,3,1,1,
%U A373835 2,1,1,1,1,1,1,1,2,3,1,5,4,1,1,2,2,1,2,1,1,1,2,1,2,1,2,1,1,1,1,2,1,3,1,1,1
%N A373835 a(n) = gcd(bigomega(n), A276085(n)), where bigomega (A001222), and A276085 are fully additive with a(p) = 1 and a(p) = p#/p respectively.
%H A373835 Antti Karttunen, <a href="/A373835/b373835.txt">Table of n, a(n) for n = 1..100000</a>
%o A373835 (PARI)
%o A373835 A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*prod(i=1,primepi(f[k, 1]-1),prime(i))); };
%o A373835 A373835(n) = gcd(bigomega(n), A276085(n));
%Y A373835 Cf. A001222, A276085, A373833 [= a(A276086(n))], A373836, A373837 (positions of multiples of 3).
%K A373835 nonn
%O A373835 1,4
%A A373835 _Antti Karttunen_, Jun 19 2024