|
1, 2, 9, 18, 3, 6, 125, 250, 1125, 2250, 375, 750, 5, 10, 45, 90, 15, 30, 625, 1250, 5625, 11250, 1875, 3750, 25, 50, 225, 450, 75, 150, 2401, 4802, 21609, 43218, 7203, 14406, 300125, 600250, 2701125, 5402250, 900375, 1800750, 12005, 24010, 108045, 216090, 36015, 72030, 1500625, 3001250, 13505625, 27011250, 4501875
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI) A346233(n) = { my(p=2, m=1); while(n>0, my(d=n%p); if(d>0, m *= p^if(2==p, d, lift(Mod(d, p)/2))); n \= p; p = nextprime(1+p)); return(m); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|