%I #19 Feb 22 2025 15:02:56

%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,13901,14401,15101

%N Primes of form 100*k + 1.

%D W. Dunham, Euler: The Master of Us All, The Mathematical Association of America, Washington, D.C., 1999, p. 78.

%H Harry J. Smith, <a href="/A062800/b062800.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = A158128(A166457(n)). - _Elmo R. Oliveira_, Feb 22 2025

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

%Y Cf. A166457.

%K easy,nonn,changed

%O 1,1

%A _Jason Earls_, Jul 19 2001