Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 Jan 01 2025 00:14:58
%S 2,5,6,14,15,17,20,21,24,27,30,33,35,41,48,50,51,54,62,63,66,69,75,77,
%T 86,87,90,92,101,104,105,108,113,114,117,128,129,131,134,135,138,140,
%U 147,152,153,167,171,173,176,182,189,197,204,206,209,215,216,218,227
%N Numbers n such that 100*n - 1 is prime.
%e If n=2, then 100*n - 1 = 100*2 - 1 = 199 (prime).
%e If n=15, then 100*n - 1 = 100*15 - 1 = 1499 (prime).
%e If n=27, then 100*n - 1 = 100*27 - 1 = 2669 (prime).
%t Select[Range[10^3], PrimeQ[100 # - 1] &] (* _Paul F. Marrero Romero_, Dec 31 2024 *)
%o (Magma) [n: n in [0..100000] | IsPrime(100*n - 1)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(100*n-1) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, Apr 03 2005