A265013 Numbers n such that n*9^n + 1 is prime.
2, 12382, 27608, 31330, 117852
Offset: 1
Crossrefs
Programs
-
Magma
[n: n in [0..100000] | IsPrime(n*9^n+1)];
-
Mathematica
Select[Range[100000], PrimeQ[# 9^# + 1] &]
-
PARI
for(n=1,100000, if(isprime(n*9^n+1), print1(n,", ")))
Comments