OFFSET
0,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..1024
PROG
(PARI)
A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From Michel Marcus
A260443(n) = if(n<2, n+1, if(n%2, A260443(n\2)*A260443(n\2+1), A003961(A260443(n\2)))); \\ Cf. Charles R Greathouse IV's code for "ps" in A186891 and A277013.
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); }; \\ From Charles R Greathouse IV, Aug 17 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 11 2017
STATUS
approved