1,2
Do[If[PrimeQ[1+n+n^3+n^5+n^7+n^9+n^11+n^13+n^15+n^17+n^19+n^21+n^23+n^25+n^27+n^\ 29+n^31+n^33+n^35], Print[n]], {n, 1, 2400}]
Cf. A049407.
Sequence in context: A033817 A098748 A020692 this_sequence A155027 A118420 A038211
Adjacent sequences: A124184 A124185 A124186 this_sequence A124188 A124189 A124190
nonn
Artur Jasinski (grafix(AT)csl.pl), Dec 13 2006
Search completed in 0.002 seconds