A217347 Numbers k such that 3^k - 10 is prime.

3, 4, 5, 6, 8, 17, 18, 21, 22, 36, 38, 41, 54, 56, 81, 92, 100, 106, 160, 310, 406, 560, 902, 5549, 9926, 12334, 19374, 19995, 20166, 39609, 62900, 186903, 244461

Offset: 1

Author

Vincenzo Librandi, Oct 01 2012

Keywords

• nonn
• more

Comments

a(33) > 2*10^5. - Robert Price, Sep 07 2013

a(34) > 3*10^5. - Tyler NeSmith, Oct 03 2022

Crossrefs

Cf. A014224, A051783, A058958, A058959.

Programs

Magma

/* The code produces the sequence up to 560: */ [n: n in [2..800] | IsPrime(3^n - 10)];

Mathematica

Select[Range[2, 5000], PrimeQ[3^# - 10] &]

PARI

for(n=2, 5*10^3, if(isprime(3^n-10), print1(n", ")))

Extensions

a(24)-a(32) from Robert Price, Sep 07 2013

a(33) from Tyler NeSmith, Oct 03 2022