login
A329038
a(n) = A246277(A276086(n)).
4
0, 1, 1, 3, 2, 9, 1, 5, 3, 15, 6, 45, 2, 25, 9, 75, 18, 225, 4, 125, 27, 375, 54, 1125, 8, 625, 81, 1875, 162, 5625, 1, 7, 5, 21, 10, 63, 3, 35, 15, 105, 30, 315, 6, 175, 45, 525, 90, 1575, 12, 875, 135, 2625, 270, 7875, 24, 4375, 405, 13125, 810, 39375, 2, 49, 25, 147, 50, 441, 9, 245, 75, 735, 150, 2205, 18, 1225, 225, 3675, 450, 11025, 36
OFFSET
0,4
FORMULA
a(n) = A246277(A276086(n)).
For n >= 1, A046523(2*a(n)) = A278226(n).
PROG
(PARI)
A246277(n) = if(1==n, 0, my(f = factor(n), k = primepi(f[1, 1])-1); for (i=1, #f~, f[i, 1] = prime(primepi(f[i, 1])-k)); factorback(f)/2);
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
CROSSREFS
Cf. A046523, A246277, A276086, A278226, A329048 (rgs-transform).
Cf. also A329345.
Sequence in context: A335228 A228492 A340875 * A272491 A010271 A291777
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 08 2019
STATUS
approved