login
A124149
Prime numbers of the form 1 + k^3 + k^5 + k^7.
1
105954073, 114494872633, 230670098569, 587323256833, 2800137816001, 34797487127929, 40872837637633, 402298111908169, 504221281783129, 562984315256833, 1874666045511169, 3190972664427073, 6122389282632001
OFFSET
1,1
LINKS
MATHEMATICA
Do[If[PrimeQ[1 + n^3 + n^5 + n^7], Print[1 + n^3 + n^5 + n^7]], {n, 1, 1000}]
Select[Table[Total[n^{0, 3, 5, 7}], {n, 200}], PrimeQ] (* Harvey P. Dale, Mar 05 2022 *)
CROSSREFS
Sequence in context: A176773 A035498 A018897 * A185930 A184572 A184783
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 13 2006
STATUS
approved