login
A351032
a(n) = Product_{d|n, d<n} A019565(A291759(d)).
4
1, 1, 1, 2, 1, 2, 1, 4, 1, 2, 1, 24, 1, 6, 1, 8, 1, 12, 1, 8, 3, 6, 1, 480, 1, 2, 1, 72, 1, 120, 1, 16, 3, 2, 3, 480, 1, 2, 1, 32, 1, 216, 1, 120, 5, 6, 1, 13440, 3, 60, 1, 120, 1, 168, 3, 1440, 1, 6, 1, 144000, 1, 10, 3, 32, 1, 1080, 1, 8, 3, 72, 1, 26880, 1, 10, 75, 24, 9, 1080, 1, 128, 7, 10, 1, 86400, 1, 30, 3
OFFSET
1,4
PROG
(PARI)
A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); };
A048673(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); (1+factorback(f))/2; };
A289814(n) = { my(d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); } \\ From A289814
A351032(n) = { my(m=1); fordiv(n, d, if(d<n, m *= A019565(A291759(d)))); (m); };
CROSSREFS
Cf. A019565, A048673, A289814, A291759, A351030, A351031, A351034 (rgs-transform).
Cf. also A293222.
Sequence in context: A360112 A333570 A363320 * A280726 A256607 A256608
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 29 2022
STATUS
approved