OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(10) = (2*5)*7.
MATHEMATICA
Insert[Table[n*Prime[PrimePi[FactorInteger[n][[ -1]][[1]]] + 1], {n, 2, 100}], 2, 1] (* Stefan Steinerberger, May 18 2006 *)
PROG
(Haskell)
a119416 n = n * (a151800 $ a006530 n) -- Reinhard Zumkeller, Apr 06 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 17 2006
STATUS
approved