A300010 Numbers k such that 3^k + k - 1 is a prime.
1, 3, 65, 123, 435, 465, 677, 947, 4215, 5615, 69749
Offset: 1
Programs
-
Magma
[k: k in [1..700] | IsPrime(3^k+k-1)];
-
Maple
select(k->isprime(3^k+k-1),[$1..1000]); # Muniru A Asiru, Apr 05 2018
-
Mathematica
Flatten[{Select[Range[6000], PrimeQ[3^# + # - 1] &]}] -
PARI
lista(nn) = forstep(n=1, nn, 2, if(ispseudoprime(3^n + n - 1), print1(n, ", "))); \\ Altug Alkan, Apr 01 2018
Extensions
a(11) from Michael S. Branicky, Oct 08 2024
Comments