The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A100269 Primes of the form x^8 + y^8 with x^4 + y^4, x^2 + y^2 and x+y also prime. 3
 2, 257, 65537, 2724909545357921, 3282116715437377, 40213879071634241, 147578912575757441, 303879829574456257, 697576026529536481, 1316565220482548321, 2860283484326400961, 4080251077774711937 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The Mathematica program generates numbers of the form x^8 + y^8 in order of increasing magnitude; it accepts a number when all the x^2^k + y^2^k are prime for k=0,1,2,3. LINKS Vincenzo Librandi, Table of n, a(n) for n = 1..100 Eric Weisstein's World of Mathematics, Generalized Fermat Number MATHEMATICA n=3; pwr=2^n; xmax=2; r=Range[xmax]; num=r^pwr+r^pwr; Table[While[p=Min[num]; x=Position[num, p][[1, 1]]; y=r[[x]]; r[[x]]++; num[[x]]=x^pwr+r[[x]]^pwr; If[x==xmax, xmax++; AppendTo[r, xmax+1]; AppendTo[num, xmax^pwr+(xmax+1)^pwr]]; allPrime=True; k=0; While[k<=n&&allPrime, allPrime=PrimeQ[x^2^k+y^2^k]; k++ ]; !allPrime]; p, {20}] CROSSREFS Cf. A099332, A100268, A100270. Sequence in context: A294275 A085316 A006686 * A258805 A327777 A196288 Adjacent sequences:  A100266 A100267 A100268 * A100270 A100271 A100272 KEYWORD nonn AUTHOR T. D. Noe, Nov 11 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 4 19:40 EST 2021. Contains 349526 sequences. (Running on oeis4.)