|
|
|
|
1, 3, 18, 9, 324, 15, 3240, 15, 270, 810, 291600, 75, 14580000, 24300, 2250, 225, 6561000000, 1125, 1640250000000, 6750, 607500, 3645000, 3690562500000000, 1875, 337500, 546750000, 56250, 1822500, 41518828125000000000, 105, 581263593750000000000, 21, 1020600, 918540000, 283500, 315, 40688451562500000000000, 688905000000, 765450000, 5670
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
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; };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|