A106630 Numbers k such that (prime(k)^2 - 1)/6 - prime(k) is prime.

7, 8, 12, 13, 17, 20, 24, 25, 28, 29, 32, 39, 42, 45, 52, 53, 58, 59, 63, 64, 67, 72, 75, 79, 83, 87, 88, 93, 100, 102, 114, 115, 125, 126, 127, 131, 139, 140, 144, 154, 159, 160, 173, 180, 190, 195, 219, 223, 232, 234, 240, 248, 253, 265, 278, 279, 284, 296, 299

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Example

(17^2 -1)/6 - 17 = 48 - 17 = 31 is prime, 17=prime(7), so 7 is a term.

Mathematica

Select[Range[350], PrimeQ[(Prime[#]^2 -6*Prime[#] -1)/6] &] (* G. C. Greubel, Sep 08 2021 *)

Prog

(PARI) is(n, p=prime(n))=isprime((p^2-1)/6-p) \\ Charles R Greathouse IV, Jun 13 2017

Crossrefs

Cf. A084922.

Sequence in context: A105740 A377886 A050796 * A050798 A260628 A280999

Adjacent sequences: A106627 A106628 A106629 * A106631 A106632 A106633

Keyword

nonn

Author

Pierre CAMI, May 11 2005

Extensions

a(12) corrected by R. J. Mathar, Nov 13 2009

Status

approved