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 A342920 #12 Apr 09 2021 09:21:55 %S A342920 1,1,1,2,1,2,1,8,12,2,1,4,1,2,6,16,1,24,1,4,6,2,1,26,50,2,16,4,1,62,1, %T A342920 10,6,2,126,48,1,2,6,18,1,24,1,4,46,2,1,22,1486,100,6,4,1,32,94,8,6,2, %U A342920 1,54,1,2,72,20,264,12,1,4,6,120,1,376,1,2,1142,4,242,12,1,36,342,2,1,48,272,2,6,8,1,92,318 %N A342920 a(n) = A342002(A108951(n)). %H A342920 Antti Karttunen, <a href="/A342920/b342920.txt">Table of n, a(n) for n = 1..8192</a> %H A342920 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a> %H A342920 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a> %F A342920 a(n) = A342002(A108951(n)) = A327860(A108951(n)) / A328572(A108951(n)). %o A342920 (PARI) %o A342920 A034386(n) = prod(i=1, primepi(n), prime(i)); %o A342920 A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) }; %o A342920 A342920(n) = A342002(A108951(n)); \\ Needs also code from A342002. %Y A342920 Cf. A108951, A324886, A327860, A328572, A342002, A342463. %K A342920 nonn %O A342920 1,4 %A A342920 _Antti Karttunen_, Apr 06 2021