A324887 a(n) = A108951(n) * A276086(A108951(n)).
2, 6, 30, 36, 210, 300, 2310, 120, 1260, 2940, 30030, 15000, 510510, 50820, 21176820, 3600, 9699690, 88200, 223092870, 288120, 2232166860, 780780, 6469693230, 42000, 645668100, 17357340, 11880, 12298440, 200560490130, 66555720, 7420738134810, 672, 66899572740, 368588220, 228227900600700, 216090000, 304250263527210
Offset: 1
Keywords
Links
Programs
-
PARI
A034386(n) = prod(i=1, primepi(n), prime(i)); A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) }; \\ From A108951 A276086(n) = { my(i=0,m=1,pr=1,nextpr); while((n>0),i=i+1; nextpr = prime(i)*pr; if((n%nextpr),m*=(prime(i)^((n%nextpr)/pr));n-=(n%nextpr));pr=nextpr); m; }; A324886(n) = A276086(A108951(n)); A324887(n) = (A324886(n)*A108951(n));