A366892 a(n) = A336652(A163511(n)).

1, 1, 1, 3, 1, 12, 3, 5, 1, 39, 12, 30, 3, 15, 5, 7, 1, 120, 39, 155, 12, 90, 30, 56, 3, 60, 15, 35, 5, 21, 7, 11, 1, 363, 120, 780, 39, 465, 155, 399, 12, 360, 90, 280, 30, 168, 56, 132, 3, 195, 60, 210, 15, 105, 35, 77, 5, 84, 21, 55, 7, 33, 11, 13, 1, 1092, 363, 3905, 120, 2340, 780, 2800, 39, 1860, 465, 1995

Offset

0,4

Links

Antti Karttunen, Table of n, a(n) for n = 0..16384

Prog

(PARI)
A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A336652(n) = if(1==n, n, my(f=factor(n)); prod(i=1, #f~, if(2==f[i, 1], 1, -1+(((f[i, 1]^(1+f[i, 2]))-1) / (f[i, 1]-1)))));
A366892(n) = A336652(A163511(n));

Crossrefs

Cf. A163511, A336652, A366893 (rgs-transform).

Cf. also A324186.

Sequence in context: A144880 A144881 A121420 * A283085 A288403 A283181

Adjacent sequences: A366889 A366890 A366891 * A366893 A366894 A366895

Keyword

nonn

Author

Antti Karttunen, Nov 04 2023

Status

approved