login
A324580
a(n) = n * A276086(n).
23
0, 2, 6, 18, 36, 90, 30, 70, 120, 270, 450, 990, 300, 650, 1050, 2250, 3600, 7650, 2250, 4750, 7500, 15750, 24750, 51750, 15000, 31250, 48750, 101250, 157500, 326250, 210, 434, 672, 1386, 2142, 4410, 1260, 2590, 3990, 8190, 12600, 25830, 7350, 15050, 23100, 47250, 72450, 148050, 42000, 85750, 131250, 267750, 409500
OFFSET
0,2
FORMULA
a(n) = n * A276086(n).
For n >= 0, a(A002110(n)) = A002110(1+n).
PROG
(PARI)
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; };
A324580(n) = n*A276086(n);
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 09 2019
STATUS
approved