A217132 - OEIS

%I #12 Jan 24 2014 16:12:15

%S 0,1,2,3,4,6,7,11,26,29,41,53,55,84,86,144,179,229,238,414,616,1158,

%T 4111,5577,13237,15244,48578,66074

%N Numbers n such that 7^n + 10 is prime.

%C a(29) > 10^5. - _Robert Price_, Jan 24 2014

%t Select[Range[0, 3000], PrimeQ[7^# + 10] &]

%o (PARI) for(n=1, 3*10^3, if(isprime(7^n+10), print1(n", ")))

%Y Cf. A236371, A217131, A191469, A090669, A096305, A217130, A217132, A152213.

%K nonn

%O 1,3

%A _Vincenzo Librandi_, Oct 01 2012

%E a(23)-a(28) from _Robert Price_, Jan 24 2014