login
A192228
Primes of the form (n+1)^6+(n+2)^6+(n+3)^6-666.
0
425783, 263145359, 744158711, 1805712959, 32484102023, 103206118583, 271979814143, 324434645039, 454854785303, 626321908703, 6944429711711, 21648847849679, 23586002145119
OFFSET
1,1
COMMENTS
Sum of three consecutive numbers with exponent 6, the difference with 666 generate prime number of the form 3n^6 +36n^5 +210n^4 +720n^3 +1470n^2 +1656n +128.
EXAMPLE
425783 = 6^6+7^6+8^6-666 and 744158711 = 24^6+25^6+26^6-666 are in the sequence.
MATHEMATICA
lst={}; Do[If[PrimeQ[p=(n+1)^6+(n+2)^6+(n+3)^6-666], AppendTo[lst, p]], {n, 200}]; lst
Select[Total/@(Partition[Range[200], 3, 1]^6)-666, PrimeQ] (* Harvey P. Dale, Dec 14 2011 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(k=(n+1)^6+(n+2)^6+(n+3)^6-666), print1(k", "))) \\ Charles R Greathouse IV, Jul 01 2011
CROSSREFS
Sequence in context: A204412 A233499 A282337 * A234737 A206082 A209794
KEYWORD
nonn
AUTHOR
Rafael Parra Machio, Jun 26 2011
STATUS
approved