A076332 Rad(n)+n/rad(n), where rad(n) is the squarefree kernel of n = A007947(n).

2, 3, 4, 4, 6, 7, 8, 6, 6, 11, 12, 8, 14, 15, 16, 10, 18, 9, 20, 12, 22, 23, 24, 10, 10, 27, 12, 16, 30, 31, 32, 18, 34, 35, 36, 12, 38, 39, 40, 14, 42, 43, 44, 24, 18, 47, 48, 14, 14, 15, 52, 28, 54, 15, 56, 18, 58, 59, 60, 32, 62, 63, 24, 34, 66, 67, 68, 36, 70, 71, 72, 18, 74

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Prog

(PARI) rad(n)=my(f=factor(n)[, 1]); prod(i=1, #f, f[i])
a(n)=my(r=rad(n)); r+n/r \\ Charles R Greathouse IV, Aug 08 2013

Crossrefs

a(n)=A007947(n)+A003557(n).

Sequence in context: A361318 A205791 A039696 * A370681 A245092 A342126

Adjacent sequences: A076329 A076330 A076331 * A076333 A076334 A076335

Keyword

nonn

Author

Reinhard Zumkeller, Nov 06 2002

Status

approved