|
Search: id:A081507
|
|
| |
| |
|
|
OFFSET
|
0,2
|
|
|
EXAMPLE
|
n=2: 2^2+3^2+4^2=4+9+16=29 prime.
|
|
MATHEMATICA
|
Do[s=2^w+3^w+4^w; If[IntegerQ[w/100], Print[{w}]]; If[PrimeQ[s], Print[{w, s}]], {w, 0, 1000}]
Do[ If[ PrimeQ[2^w+3^w+4^w], Print[n]], {n, 0, 5000}]
|
|
CROSSREFS
|
Sequence in context: A075401 A083145 A085920 this_sequence A115336 A119666 A087302
Adjacent sequences: A081504 A081505 A081506 this_sequence A081508 A081509 A081510
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003
|
|
EXTENSIONS
|
a(8) & a(9) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 22 2005
|
|
|
Search completed in 0.002 seconds
|
