A110995
Integers k such that 6*10^k + 41 is a prime number.
Original entry on oeis.org
0, 1, 2, 4, 6, 8, 50, 54, 102, 134, 212, 872, 3055, 3427, 3528, 4262, 4414, 6084, 93792
Offset: 1
Julien Peter Benney (jpbenney(AT)ftml.net), Oct 04 2005
k = 4 is a term because 6*10^4 + 41 = 6*10000 + 41 = 60000 + 41 = 60041, which is a prime number.
A111022
Integers n such that 8*10^n+21 is prime.
Original entry on oeis.org
0, 1, 2, 4, 10, 40, 55, 162, 264, 506, 870, 948, 1339, 3587, 6428, 48490, 81487
Offset: 1
Julien Peter Benney (jpbenney(AT)ftml.net), Oct 04 2005
n = 4 is a member because: 8*10^4+21 = 8*10000+21 = 80000+21 = 80021, which is prime.
A111023
Integers n such that 9*10^n + 11 is a prime number.
Original entry on oeis.org
1, 2, 3, 4, 6, 8, 16, 20, 27, 115, 180, 274, 576, 1111, 2404, 5127, 8082, 9514, 12808, 14752, 15926, 22670, 37432, 41988, 53707, 72595, 92742
Offset: 1
Julien Peter Benney (jpbenney(AT)ftml.net), Oct 04 2005
n = 6 is a member because 9*10^6 + 11 = 9*1000000 + 11 = 9000011, which is prime.
Cf.
A100275 = numbers n such that 9*10^n-11 is prime.
-
Do[If[PrimeQ[9*10^n+11],Print[n]],{n,1,1300}] (* Zak Seidov, Sep 14 2006 *)
A280828
Numbers k of the form 2*10^m + 2 such that 10^k + 9 is prime.
Original entry on oeis.org
For n=1, a(1)=4 and 10^4 + 9 is prime.
A356987
Primes whose decimal expansion is 1, zero or more 0's, then a single digit.
Original entry on oeis.org
11, 13, 17, 19, 101, 103, 107, 109, 1009, 10007, 10009, 100003, 1000003, 100000007, 1000000007, 1000000009, 100000000003, 100000000000000003, 1000000000000000003, 1000000000000000009, 10000000000000000000009, 1000000000000000000000007
Offset: 1
1000000007 is a term because it is a prime number whose decimal expansion is 1, 8 zeros, then the single digit 7.
-
PrmsUpTo10PowNpl9[n_] := Parallelize @ Cases[ Table[10^k+m,{k,n},{m,{1,3,7,9}}], ?PrimeQ, {2}]; PrmsUpTo10PowNpl9[1000] (* _Mikk Heidemaa, Jan 07 2023 *)
-
from itertools import count, islice
from sympy import isprime
def A356987_gen(): # generator of terms
return filter(isprime,(10**k+m for k in count(1) for m in (1,3,7,9)))
A356987_list = print(list(islice(A356987_gen(),30))) # Chai Wah Wu, Oct 22 2022
A359630
Primes p such that 10^p+3 or 10^p+9 is also prime.
Original entry on oeis.org
2, 3, 5, 11, 17, 101, 107, 26927, 48109
Offset: 1
3 is a term since it is prime and so is 10^3 + 9 = 1009.
11 is a term since it is prime and 10^11 + 3 = 100000000003 is also a prime.
-
Block[{p}, ParallelDo[p := Prime @ i; If[(PrimeQ[10^p + 3] || PrimeQ[10^p + 9]), Print @ p], {i, PrimePi @ 48109}, Method -> "FinestGrained"]]
Select[Prime[Range[5000]],AnyTrue[10^#+{3,9},PrimeQ]&] (* Harvey P. Dale, Feb 09 2025 *)
Comments