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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A171139.

Sequence in context: A054998 A067378 A331031 * A071886 A276302 A087939

Adjacent sequences: A171135 A171136 A171137 * A171139 A171140 A171141

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 26 2010

Status

approved