|
%I #16 Jun 29 2018 04:00:28
%S 101,401,601,701,1201,1301,1601,1801,1901,2801,3001,3301,3701,4001,
%T 4201,4801,5101,5501,5701,5801,6101,6301,6701,7001,7901,8101,8501,
%U 9001,9601,9901,10301,10501,10601,11701,11801,12101,12301,12401,12601,13001
%N Primes of form 100k + 1.
%D W. Dunham, Euler: The Master of Us All, The Mathematical Association of America, Washington, D.C., 1999, pp. 78.
%H Harry J. Smith, <a href="/A062800/b062800.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[100*Range[200]+1,PrimeQ] (* _Harvey P. Dale_, May 06 2018 *)
%o (PARI) j=[]; for(n=1,400, if(isprime(100*n+1),j=concat(j,100*n+1))); j
%o (PARI) { n=0; for (m=1, 10^9, if (isprime(a=100*m + 1), write("b062800.txt", n++, " ", a); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 11 2009
%Y Subsequence of primes of A158128.
%K easy,nonn
%O 1,1
%A _Jason Earls_, Jul 19 2001
|
