1,2

Table of n, a(n) for n=1..76.

Index to divisibility sequences

Multiplicative with a(p^e) = ((A000040(A000720(p)+1)+1)/2)^e. - David W. Wilson, Aug 01 2001

(PARI) tcp(n) = my(f=factor(n)); for (i=1, #f~, f[i, 1] = (nextprime(f[i, 1]+1)+1)/2); factorback(f); \\ Michel Marcus, Jun 09 2014

Sequence in context: A138768 A111939 A253248 * A102443 A102441 A102440

Adjacent sequences: A003959 A003960 A003961 * A003963 A003964 A003965

nonn,mult

Marc LeBrun

Corrected and extended by David W. Wilson.

approved