A171138 Primes of the form 7*p^2+7*p-1 (with p=prime).

41, 83, 2141, 2659, 3863, 6089, 15791, 31891, 37813, 66541, 90173, 160663, 187123, 210713, 349663, 362291, 368689, 401519, 442763, 464141, 486023, 679223, 769243, 904679, 945391, 976513, 1061969, 1173829, 1231859, 1315453, 1352119, 1465141

Offset: 1

Author

Vincenzo Librandi, Jan 26 2010

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A171139.

Programs

Magma

[a: p in PrimesInInterval(1, 800) | IsPrime(a) where a is 7*p^2 + 7*p - 1]; // Vincenzo Librandi, Oct 13 2012

Mathematica

Select[Table[7p^2 + 7p - 1,{p, Prime[Range[400]]}], PrimeQ] (* Vincenzo Librandi, Oct 13 2012 *)