A162905 Primes of form p^2-6, p also a prime.

3, 19, 43, 163, 283, 523, 2203, 2803, 4483, 5323, 6883, 9403, 11443, 12763, 27883, 37243, 38803, 69163, 85843, 100483, 134683, 139123, 146683, 208843, 214363, 218083, 237163, 253003, 310243, 351643, 368443, 413443, 418603, 452923, 458323

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 16 2009

Keywords

• nonn

Programs

Mathematica

f[n_]:=n^2-6; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst,f[p]]], {n,7!}];lst
#^2-6&/@Select[Prime[Range[2,200]],PrimeQ[#^2-6]&] (* Harvey P. Dale, May 21 2021 *)

Formula

a(n) = (A137270(n))^2-6.

Extensions

Cross-reference turned into formula by R. J. Mathar, Jul 27 2009