login
a(n) = n*prime(prime(n)) - prime(n).
3

%I #18 Mar 11 2020 23:47:59

%S 1,7,28,61,144,233,396,517,724,1061,1366,1847,2286,2631,3118,3803,

%T 4650,5033,6222,6989,7634,8743,9830,10975,12628,14121,15098,16329,

%U 17262,18397,21852,23517,25372,26959,29916,31421,33846,36583,38482,41067,43404,45473

%N a(n) = n*prime(prime(n)) - prime(n).

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

%H James Spahlinger, <a href="/A230285/b230285.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A080697(n) - A000040(n). - _Omar E. Pol_, Oct 21 2013

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

%o (PARI) a(n) = n*prime(prime(n)) - prime(n) \\ _Charles R Greathouse IV_, Oct 15 2013

%Y Cf. A000040, A230098.

%K nonn

%O 1,2

%A _V.J. Pohjola_, Oct 15 2013