The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #20 Nov 11 2023 11:11:56
%S 0,1,2,3,6,8,18,36,98,114,134,138,212,252,516,1166,2321,2442,2732,
%T 4569,8622,8709,16487,22722,25242,29928,32034,33783,34001,44934,50868,
%U 77861,90188,102102,171843,178226,273521
%N Numbers k such that 3^k + 10 is prime.
%C a(37) > 2*10^5. - _Robert Price_, Oct 23 2013
%C a(38) > 3*10^5. - _Tyler NeSmith_, Jan 16 2021
%t Select[Range[0, 5000], PrimeQ[3^# + 10] &]
%o (PARI) for(n=0, 5*10^3, if(isprime(3^n+10), print1(n", ")))
%Y Cf. A014224, A051783, A058958, A058959, A102907.
%K nonn,more
%O 1,3
%A _Vincenzo Librandi_, Oct 01 2012
%E a(21)-a(36) from _Robert Price_, Oct 23 2013
%E a(37) from _Tyler NeSmith_, Jan 16 2021