A165946 Primes of the form p + (p-1)^3, where p is also prime.

3, 11, 223, 1741, 5851, 27031, 74131, 216061, 1061311, 1259821, 2000503, 4251691, 5832181, 13824241, 21024853, 30371641, 37933393, 49028263, 54010531, 67917721, 84028111, 123506491, 162771883, 185193571, 191103553, 216000601, 229221541, 250047631, 264609931

Offset: 1

Author

Claudio Meller, Oct 01 2009

Keywords

• nonn
• easy

Comments

Generated by p = 2, 3, 7, 13, 19, 31, 43, 61, 103, 109, 127,... [R. J. Mathar, Oct 28 2009]

Links

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

Crossrefs

Cf. A095692, A163421. [R. J. Mathar, Oct 28 2009]

Programs

Magma

[a: p in PrimesInInterval(1, 1000) | IsPrime(a) where a is p + (p - 1)^3]; // Vincenzo Librandi, Oct 12 2012

Mathematica

Select[Table[Prime[i] + (Prime[i] - 1)^3, {i, 300}], PrimeQ] (* Harvey P. Dale, Oct 07 2009 *)
Select[Table[p + (p - 1)^3, {p, Prime[Range[300]]}], PrimeQ] (* Vincenzo Librandi, Oct 12 2012 *)

Extensions

5 more terms from R. J. Mathar, Oct 28 2009