A108588 Numbers k such that 10*k + 97 is prime.
0, 1, 3, 4, 6, 7, 10, 13, 16, 18, 21, 22, 24, 25, 27, 30, 36, 37, 39, 45, 46, 48, 49, 51, 52, 55, 58, 63, 66, 69, 70, 73, 76, 78, 79, 81, 84, 85, 87, 88, 90, 99, 100, 102, 109, 112, 114, 118, 120, 121, 123, 127, 133, 135, 139, 147, 150
Offset: 1
Examples
k = 0 is a term because 10*0 + 97 = 97 (prime). k = 27 is a term because 10*27 + 97 = 367 (prime).
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [0..400] | IsPrime(10*n+97)]; // G. C. Greubel, Oct 22 2023
-
Mathematica
For[n = 0, n < 150, n++, If[PrimeQ[10*n + 97], Print[n]]] (* Stefan Steinerberger, Feb 12 2006 *) Select[Range[0,200],PrimeQ[10#+97]&] (* Harvey P. Dale, Oct 23 2019 *)
-
PARI
is(n)=isprime(10*n+97) \\ Charles R Greathouse IV, Jun 13 2017
-
SageMath
[n for n in (0..400) if is_prime(10*n+97)] # G. C. Greubel, Oct 22 2023
Extensions
More terms from Stefan Steinerberger, Feb 12 2006