A230285 a(n) = n*prime(prime(n)) - prime(n).

1, 7, 28, 61, 144, 233, 396, 517, 724, 1061, 1366, 1847, 2286, 2631, 3118, 3803, 4650, 5033, 6222, 6989, 7634, 8743, 9830, 10975, 12628, 14121, 15098, 16329, 17262, 18397, 21852, 23517, 25372, 26959, 29916, 31421, 33846, 36583, 38482, 41067, 43404, 45473

Offset: 1

Author

V.J. Pohjola, Oct 15 2013

Keywords

• nonn

Comments

First published at Sequence Fans Mailing List on Oct 12 2013.

Links

• James Spahlinger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A230098.

Programs

Mathematica

Table[n*Prime[Prime[n]] - Prime[n], {n, 1, 100}]

PARI

a(n) = n*prime(prime(n)) - prime(n) \\ Charles R Greathouse IV, Oct 15 2013

Formula

a(n) = A080697(n) - A000040(n). - Omar E. Pol, Oct 21 2013