A160360 Numbers n such that 3*n^n+2 is prime.
0, 1, 3, 5, 7, 93, 605
Offset: 1
Programs
-
Mathematica
Do[If[PrimeQ[3*n^n+2],Print[n]],{n,15000}] -
PARI
for(i=1,9999,ispseudoprime(i^i*3+2)&print1(i","))
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Comments