A062800 Primes of form 100*k + 1.
101, 401, 601, 701, 1201, 1301, 1601, 1801, 1901, 2801, 3001, 3301, 3701, 4001, 4201, 4801, 5101, 5501, 5701, 5801, 6101, 6301, 6701, 7001, 7901, 8101, 8501, 9001, 9601, 9901, 10301, 10501, 10601, 11701, 11801, 12101, 12301, 12401, 12601, 13001, 13901, 14401, 15101
Offset: 1
References
- W. Dunham, Euler: The Master of Us All, The Mathematical Association of America, Washington, D.C., 1999, p. 78.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[100*Range[200]+1,PrimeQ] (* Harvey P. Dale, May 06 2018 *)
-
PARI
j=[]; for(n=1,400, if(isprime(100*n+1),j=concat(j,100*n+1))); j
-
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