A108844
Palindromic primes in which all internal digits are 7.
Original entry on oeis.org
373, 1777771, 377777777777773, 1777777777777777777777777777777777777777777777771, 3777777777777777777777777777777777777777777777777777773, 377777777777777777777777777777777777777777777777777777777777777777773
Offset: 1
-
Union[Flatten[Table[Select[Table[FromDigits[Join[{i},PadRight[{},n,7],{i}]],{n,100}],PrimeQ],{i,1,9,2}]]] (* Harvey P. Dale, Nov 22 2012 *)
-
n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,8, y=10^(x+1)*k+floor(10^x*d/9)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "1379" if isprime(t:=int(f + "7"*i + f)))
print(list(islice(agen(), 12))) # Michael S. Branicky, Jan 27 2023
A108841
Palindromic primes in which all internal digits are 4.
Original entry on oeis.org
1444441, 3444443, 74444444447, 3444444444443, 7444444444444444444444444444447, 1444444444444444444444444444444444444444444444444444444444444444441
Offset: 1
-
select(isprime, [seq(seq(x*(10^d+1)+40*(10^(d-1)-1)/9,x=1..9,2),d=2..66)]); # Robert Israel, Oct 25 2018
-
Sort[Select[FromDigits/@Flatten[Table[Join[{n},PadRight[{},i,4],{n}],{n,{1,3,7,9}},{i,150}],1],PrimeQ]] (* Harvey P. Dale, Nov 26 2014 *)
-
n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,8, y=10^(x+1)*k+floor(10^x*d/9)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "1379" if isprime(t:=int(f + "4"*i + f)))
print(list(islice(agen(), 9))) # Michael S. Branicky, Jan 27 2023
A108842
Palindromic primes in which all internal digits are 5.
Original entry on oeis.org
151, 353, 757, 15551, 75557, 355555553, 75555555557, 155555555555555555551, 755555555555555555557, 75555555555555555555557, 155555555555555555555555555555551, 75555555555555555555555555555555555555555555555555555555557
Offset: 1
-
Select[Sort[Flatten[Table[FromDigits[Join[{n},PadRight[{},i,5],{n}]],{n,{1,3,7,9}},{i,80}]]],PrimeQ] (* Harvey P. Dale, May 18 2015 *)
-
n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,8, y=10^(x+1)*k+floor(10^x*d/9)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "1379" if isprime(t:=int(f + "5"*i + f)))
print(list(islice(agen(), 10))) # Michael S. Branicky, Jan 27 2023
A108843
Palindromic primes in which all internal digits are 6.
Original entry on oeis.org
16661, 76667, 7666667, 1666666666661, 16666666666666661, 1666666666666666661, 1666666666666666666666666666666666661, 16666666666666666666666666666666666666666666666666661
Offset: 1
-
nn=80;With[{o=Table[FromDigits[Join[PadRight[{1},n,6],{1}]],{n,3,nn}], s= Table[ FromDigits[Join[PadRight[{7},n,6],{7}]],{n,3,nn}]}, Select[ Sort[ Join[o,s]],PrimeQ]] (* Harvey P. Dale, May 26 2014 *)
-
n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,8, y=10^(x+1)*k+floor(10^x*d/9)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "17" if isprime(t:=int(f + "6"*i + f)))
print(list(islice(agen(), 10))) # Michael S. Branicky, Jan 27 2023
A108845
Palindromic primes in which all internal digits are 1.
Original entry on oeis.org
313, 919, 3111111111113, 311111111111113, 1111111111111111111, 11111111111111111111111, 3111111111111111111111111111113
Offset: 1
-
n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,9, y=10^(x+1)*k+floor(10^x*d/9)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "1379" if isprime(t:=int(f + "1"*i + f)))
print(list(islice(agen(), 10))) # Michael S. Branicky, Jan 27 2023
A108846
Palindromic primes in which all internal digits are 2.
Original entry on oeis.org
727, 929, 72227, 3222223, 9222229, 322222223, 722222227, 9222222222229, 72222222222222222222222222227, 72222222222222222222222222222222222222222222222222222222222222227
Offset: 1
-
Select[Flatten[Table[10 FromDigits[PadRight[{d},n,2]]+d,{d,{1,3,7,9}},{n,2,70}]],PrimeQ]//Sort (* Harvey P. Dale, Feb 05 2023 *)
-
n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,9, y=10^(x+1)*k+floor(10^x*d/9)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "1379" if isprime(t:=int(f + "2"*i + f)))
print(list(islice(agen(), 10))) # Michael S. Branicky, Jan 27 2023
A108848
Palindromic primes in which all internal digits are 9.
Original entry on oeis.org
191, 797, 19991, 79997, 199999991, 79999999999999999999999999997, 19999999999999999999999999999999999999991, 199999999999999999999999999999999999999999999999999999999999999999999999999999999999991
Offset: 1
-
Select[Flatten[Table[FromDigits[PadRight[{k},n,9]]*10+k,{n,2,200},{k,{1,7}}]],PrimeQ] (* Harvey P. Dale, Dec 11 2019 *)
-
n10np9(n,d) = { local(x,y,k); for(x=1,n, for(k=1,9, y=10^(x+1)*k+(10^x-1)*10+k; if(isprime(y),print1(y",")) ) ) }
-
from sympy import isprime
from itertools import count, islice
def agen(): yield from (t for i in count(1) for f in "17" if isprime(t:=int(f + "9"*i + f)))
print(list(islice(agen(), 13))) # Michael S. Branicky, Jan 27 2023
Showing 1-7 of 7 results.
Comments