A108594 Numbers k such that 10*k + 101 is prime.

0, 3, 5, 8, 9, 11, 14, 15, 17, 18, 21, 23, 30, 32, 33, 36, 39, 42, 44, 47, 50, 53, 54, 56, 59, 60, 65, 66, 71, 72, 78, 81, 84, 87, 89, 92, 93, 95, 96, 99, 105, 107, 108, 110, 113, 119, 120, 122, 126, 128, 135, 137, 138, 141, 143, 147, 150, 152, 162, 164, 170, 171, 173

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Example

If n=33 then 10*n + 101 = 431 (prime).

Maple

a:=proc(n) if isprime(10*n+101)=true then n else fi end: seq(a(n), n=0..200); # Emeric Deutsch, Jul 13 2005

Mathematica

Select[Range[0, 300], PrimeQ[10*# +101] &] (* G. C. Greubel, Oct 21 2023 *)

Prog

(PARI) is(n)=isprime(10*n+101) \\ Charles R Greathouse IV, Jun 13 2017
(Magma) [n: n in [0..300] | IsPrime(10*n+101)]; // G. C. Greubel, Oct 21 2023
(SageMath) [n for n in (0..300) if is_prime(10*n+101)] # G. C. Greubel, Oct 21 2023

Crossrefs

Cf. A030430, A045453, A108595.

Sequence in context: A023980 A189029 A047624 * A325425 A286048 A350460

Adjacent sequences: A108591 A108592 A108593 * A108595 A108596 A108597

Keyword

nonn,easy

Author

Parthasarathy Nambi, Jul 05 2005

Extensions

More terms from Emeric Deutsch, Jul 13 2005

Status

approved