A332134
a(n) = (10^(2n+1)-1)/3 + 10^n.
Original entry on oeis.org
4, 343, 33433, 3334333, 333343333, 33333433333, 3333334333333, 333333343333333, 33333333433333333, 3333333334333333333, 333333333343333333333, 33333333333433333333333, 3333333333334333333333333, 333333333333343333333333333, 33333333333333433333333333333, 3333333333333334333333333333333
Offset: 0
- Brady Haran and Simon Pampena, Glitch Primes and Cyclops Numbers, Numberphile video (2015).
- Patrick De Geest, Palindromic Wing Primes: (3)4(3), updated: June 25, 2017.
- Makoto Kamada, Factorization of 33...33433...33, updated Dec 11 2018.
- Index entries for linear recurrences with constant coefficients, signature (111,-1110,1000).
Cf.
A138148 (cyclops numbers with binary digits),
A002113 (palindromes).
Cf.
A332124 ..
A332194 (variants with different repeated digit 2, ..., 9).
Cf.
A332130 ..
A332139 (variants with different middle digit 0, ..., 9).
-
A332134 := n -> (10^(2*n+1)-1)/3+10^n;
-
Array[ (10^(2 # + 1)-1)/3 + 10^# &, 15, 0]
-
apply( {A332134(n)=10^(n*2+1)\3+10^n}, [0..15])
-
def A332134(n): return 10**(n*2+1)//3+10**n
A332138
a(n) = (10^(2*n+1)-1)/3 + 5*10^n.
Original entry on oeis.org
8, 383, 33833, 3338333, 333383333, 33333833333, 3333338333333, 333333383333333, 33333333833333333, 3333333338333333333, 333333333383333333333, 33333333333833333333333, 3333333333338333333333333, 333333333333383333333333333, 33333333333333833333333333333, 3333333333333338333333333333333
Offset: 0
- Brady Haran and Simon Pampena, Glitch Primes and Cyclops Numbers, Numberphile video (2015).
- Patrick De Geest, Palindromic Wing Primes: (3)8(3), updated: June 25, 2017.
- Makoto Kamada, Factorization of 33...33833...33, updated Dec 11 2018.
- Index entries for linear recurrences with constant coefficients, signature (111,-1110,1000).
Cf.
A138148 (cyclops numbers with binary digits),
A002113 (palindromes).
Cf.
A332130 ..
A332139 (variants with different middle digit 0, ..., 9).
-
A332138 := n -> (10^(2*n+1)-1)/3+5*10^n;
-
Array[ (10^(2 # + 1)-1)/3 + 5*10^# &, 15, 0]
-
apply( {A332138(n)=10^(n*2+1)\3+5*10^n}, [0..15])
-
def A332138(n): return 10**(n*2+1)//3+5*10**n
A365644
Array read by ascending antidiagonals: A(n, k) = k*(10^n - 1)/9 with k >= 0.
Original entry on oeis.org
0, 0, 0, 0, 1, 0, 0, 11, 2, 0, 0, 111, 22, 3, 0, 0, 1111, 222, 33, 4, 0, 0, 11111, 2222, 333, 44, 5, 0, 0, 111111, 22222, 3333, 444, 55, 6, 0, 0, 1111111, 222222, 33333, 4444, 555, 66, 7, 0, 0, 11111111, 2222222, 333333, 44444, 5555, 666, 77, 8, 0
Offset: 0
The array begins:
0, 0, 0, 0, 0, 0, ...
0, 1, 2, 3, 4, 5, ...
0, 11, 22, 33, 44, 55, ...
0, 111, 222, 333, 444, 555, ...
0, 1111, 2222, 3333, 4444, 5555, ...
0, 11111, 22222, 33333, 44444, 55555, ...
...
Cf.
A000004 (n=0 or k=0),
A001477 (n=1),
A002275 (k=1),
A002276 (k=2),
A002277 (k=3),
A002278 (k=4),
A002279 (k=5),
A002280 (k=6),
A002281 (k=7),
A002282 (k=8),
A002283 (k=9),
A008593 (n=2),
A053422 (main diagonal),
A105279 (k=10),
A132583,
A177769 (n=3),
A365645 (antidiagonal sums),
A365646.
-
A[n_,k_]:=k(10^n-1)/9; Table[A[n-k,k],{n,0,9},{k,0,n}]//Flatten
A271528
a(n) = 2*(10^n - 1)^2/27.
Original entry on oeis.org
0, 6, 726, 73926, 7405926, 740725926, 74073925926, 7407405925926, 740740725925926, 74074073925925926, 7407407405925925926, 740740740725925925926, 74074074073925925925926, 7407407407405925925925926, 740740740740725925925925926, 74074074074073925925925925926
Offset: 0
n=1: 6 = 2 * 3;
n=2: 726 = 22 * 33;
n=3: 73926 = 222 * 333;
n=4: 7405926 = 2222 * 3333;
n=5: 740725926 = 22222 * 33333;
n=6: 74073925926 = 222222 * 333333;
n=7: 7407405925926 = 2222222 * 3333333;
n=8: 740740725925926 = 22222222 * 33333333;
n=9: 74074073925925926 = 222222222 * 333333333, etc.
Cf. similar sequences of the form k*((10^n - 1)/9)^2:
A075411 (k=4), this sequence (k=6),
A075412 (k=9),
A075413 (k=16),
A178630 (k=18),
A075414 (k=25),
A178631 (k=27),
A075415 (k=36),
A178632 (k=45),
A075416 (k=49),
A178633 (k=54),
A178634 (k=63),
A075417 (k=64),
A178635 (k=72),
A059988 (k=81).
-
Table[2 ((10^n - 1)^2/27), {n, 0, 15}]
LinearRecurrence[{111, -1110, 1000}, {0, 6, 726}, 16]
-
x='x+O('x^99); concat(0, Vec(6*x*(1+10*x)/(1-111*x+1110*x^2-1000*x^3))) \\ Altug Alkan, Apr 09 2016
-
for n in range(0,10**1):print((int)((2*(10**n-1)**2)/27))
# Soumil Mandal, Apr 10 2016
A274986
Numbers k such that (10^k + 23)/3 is prime.
Original entry on oeis.org
1, 2, 6, 146, 326, 380, 1116, 1866, 4808, 5528, 5730, 21836, 24804, 38724
Offset: 1
Cf. numbers k such that (10^k+m)/3 is prime:
A099411 (m=11), this sequence (m=23).
-
[n: n in [0..400] | IsPrime((10^n+23) div 3)];
-
Select[Range[1000], PrimeQ[(10^# + 23) / 3] &]
-
is(n)=ispseudoprime((10^n+23)/3) \\ Charles R Greathouse IV, Jun 13 2017
A332135
a(n) = (10^(2n+1)-1)/3 + 2*10^n.
Original entry on oeis.org
5, 353, 33533, 3335333, 333353333, 33333533333, 3333335333333, 333333353333333, 33333333533333333, 3333333335333333333, 333333333353333333333, 33333333333533333333333, 3333333333335333333333333, 333333333333353333333333333, 33333333333333533333333333333, 3333333333333335333333333333333
Offset: 0
- Brady Haran and Simon Pampena, Glitch Primes and Cyclops Numbers, Numberphile video (2015).
- Patrick De Geest, Palindromic Wing Primes: (3)5(3), updated: June 25, 2017.
- Makoto Kamada, Factorization of 33...33533...33, updated Dec 11 2018.
- Index entries for linear recurrences with constant coefficients, signature (111,-1110,1000).
Cf.
A138148 (cyclops numbers with binary digits),
A002113 (palindromes).
Cf.
A332125 ..
A332195 (variants with different repeated digit 2, ..., 9).
Cf.
A332130 ..
A332139 (variants with different middle digit 0, ..., 9).
-
A332135 := n -> (10^(2*n+1)-1)/3+2*10^n;
-
Array[ (10^(2 # + 1)-1)/3 + 2*10^# &, 15, 0]
-
apply( {A332135(n)=10^(n*2+1)\3+2*10^n}, [0..15])
-
def A332135(n): return 10**(n*2+1)//3+2*10**n
A332136
a(n) = 3*(10^(2n+1)-1)/9 + 3*10^n.
Original entry on oeis.org
6, 363, 33633, 3336333, 333363333, 33333633333, 3333336333333, 333333363333333, 33333333633333333, 3333333336333333333, 333333333363333333333, 33333333333633333333333, 3333333333336333333333333, 333333333333363333333333333, 33333333333333633333333333333, 3333333333333336333333333333333
Offset: 0
Cf.
A138148 (cyclops numbers with binary digits),
A002113 (palindromes).
Cf.
A332126 ..
A332196 (variants with different repeated digit 2, ..., 9).
Cf.
A332130 ..
A332139 (variants with different middle digit 0, ..., 9).
-
A332136 := n -> (10^(2*n+1)-1)/3+3*10^n);
-
Array[ (10^(2 # + 1)-1)/3 + 3*10^# &, 15, 0]
-
apply( {A332136(n)=10^(n*2+1)\3+3*10^n}, [0..15])
-
def A332136(n): return 10**(n*2+1)//3+3*10**n
A332137
a(n) = (10^(2n+1)-1)/3 + 4*10^n.
Original entry on oeis.org
7, 373, 33733, 3337333, 333373333, 33333733333, 3333337333333, 333333373333333, 33333333733333333, 3333333337333333333, 333333333373333333333, 33333333333733333333333, 3333333333337333333333333, 333333333333373333333333333, 33333333333333733333333333333, 3333333333333337333333333333333
Offset: 0
- Brady Haran and Simon Pampena, Glitch Primes and Cyclops Numbers, Numberphile video (2015).
- Patrick De Geest, Palindromic Wing Primes: (3)7(3), updated: June 25, 2017.
- Makoto Kamada, Factorization of 33...33733...33, updated Dec 11 2018.
- Index entries for linear recurrences with constant coefficients, signature (111,-1110,1000).
Cf.
A138148 (cyclops numbers with binary digits),
A002113 (palindromes).
Cf.
A332127 ..
A332197 (variants with different repeated digit 2, ..., 9).
Cf.
A332130 ..
A332139 (variants with different middle digit 0, ..., 9).
-
A332137 := n -> (10^(2*n+1)-1)/3+4*10^n;
-
Array[ (10^(2 # + 1)-1)/3 + 4*10^# &, 15, 0]
-
apply( {A332137(n)=10^(n*2+1)\3+4*10^n}, [0..15])
-
def A332137(n): return 10**(n*2+1)//3+4*10**n
Original entry on oeis.org
0, 2, 3, 5, 7, 11, 22, 33, 55, 77, 202, 222, 232, 252, 272, 303, 313, 323, 333, 353, 373, 505, 525, 535, 555, 575, 707, 717, 727, 737, 757, 777, 1111, 2002, 2112, 2222, 2332, 2552, 2772, 3003, 3113, 3223, 3333, 3553, 3773, 5005, 5115, 5225, 5335, 5555, 5775, 7007, 7117
Offset: 1
232 is a term which has two preimages since A329147(91) = A329147(121) = 232.
313 = A329147(26) is a term whose preimage is not in A118597.
2002 is a term since A329147(1001) = 2002.
2112 is a term since A329147(151) = 2112.
27172 = A329147(1471) is a term whose preimage is not in A118597.
-
p[n_] := If[n > 0, Prime[n], 0]; seq[ndigmax_] := Module[{t = Table[FromDigits[ Flatten@ IntegerDigits@ (p /@ IntegerDigits[n])], {n, 0, 10^ndigmax - 1}]}, Union@ Select[t, # < 10^ndigmax && PalindromeQ[#] &]]; seq[4] (* Amiram Eldar, Mar 26 2023 *)
-
ispal(n) = my(d=digits(n)); d==Vecrev(d);
f(n) = if (n, fromdigits(concat(apply(d -> if (d, digits(prime(d)), [0]), digits(n)))), 0); \\ A329147
lista(nn) = my(list = List(), m); for (n=0, nn, m = f(n); if ((m <= nn) && ispal(m), listput(list, m));); vecsort(Set(list)); \\ Michel Marcus, Mar 26 2023
A385515
Repdigit numbers whose square does not contain the repeated digit.
Original entry on oeis.org
2, 3, 4, 7, 8, 9, 22, 33, 44, 77, 88, 333, 444, 3333, 33333, 44444, 88888, 333333, 3333333, 33333333, 333333333, 3333333333, 33333333333, 333333333333, 3333333333333, 33333333333333, 333333333333333, 3333333333333333, 33333333333333333, 333333333333333333
Offset: 1
22 is a term since 22^2 = 484 does not contain the digit 2.
-
Select[Union@ Flatten@ Table[k (10^n - 1)/9, {k, 0, 9}, {n, 18}] ,ContainsNone[IntegerDigits[#^2],IntegerDigits[#]]&] (* James C. McMahon, Jul 07 2025 *)
Comments