A230098 a(n) = n*prime(prime(n)) - prime(n)^2.

-1, 1, 8, 19, 34, 77, 124, 175, 218, 249, 436, 515, 646, 825, 956, 1047, 1228, 1373, 1800, 2019, 2378, 2581, 3024, 3143, 3316, 4021, 4592, 4987, 5490, 5741, 5850, 6487, 6740, 7777, 7864, 8771, 9354, 10177, 10760, 11311, 11542, 12893, 13098, 14275, 15236, 16381, 16438, 17903, 18688, 19909, 20732, 20827, 22638

Offset

1,3

Links

Table of n, a(n) for n=1..53.

Formula

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

Mathematica

Table[n Prime[Prime[n]]-Prime[n]^2, {n, 60}] (* Harvey P. Dale, Mar 16 2017 *)

Prog

(Magma) [n*NthPrime(NthPrime(n)) - NthPrime(n)^2: n in [1..60]]; // Vincenzo Librandi, Oct 13 2013
(PARI) a(n) = n*prime(prime(n)) - prime(n)^2; \\ Joerg Arndt, Oct 21 2013

Crossrefs

Sequence in context: A146270 A146222 A140672 * A262713 A135027 A158916

Adjacent sequences: A230095 A230096 A230097 * A230099 A230100 A230101

Keyword

sign

Author

N. J. A. Sloane, Oct 12 2013

Status

approved