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

Author

Antti Karttunen, Nov 04 2023

Keywords

• nonn

Links

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

Crossrefs

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

Cf. also A324186.

Programs

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));