|
%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
|
