A119416 n * (smallest prime greater than largest prime factor of n).

2, 6, 15, 12, 35, 30, 77, 24, 45, 70, 143, 60, 221, 154, 105, 48, 323, 90, 437, 140, 231, 286, 667, 120, 175, 442, 135, 308, 899, 210, 1147, 96, 429, 646, 385, 180, 1517, 874, 663, 280, 1763, 462, 2021, 572, 315, 1334, 2491, 240, 539, 350, 969, 884, 3127, 270

Offset

1,1

Comments

a(n) = n * A117366(n);

A000005(a(n)) = 2*A000005(n) = A062011(n).

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Formula

a(n) = n * A151800(A006530(n)). - Reinhard Zumkeller, Apr 06 2015

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

Cf. A006530, A087560.

Cf. A151800.

Sequence in context: A215081 A348592 A337737 * A134891 A020947 A011777

Adjacent sequences: A119413 A119414 A119415 * A119417 A119418 A119419

Keyword

nonn

Author

Reinhard Zumkeller, May 17 2006

Status

approved