1,2
Do[If[PrimeQ[ -1+n+n^2+n^3], Print[n]], {n, 1, 300}]
Cf. A045546, A125964-A125973.
Sequence in context: A089238 A005574 A109807 this_sequence A139544 A062091 A100143
Adjacent sequences: A125961 A125962 A125963 this_sequence A125965 A125966 A125967
nonn
Artur Jasinski (grafix(AT)csl.pl), Dec 13 2006
Search completed in 0.002 seconds