cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 45 results. Next

A183184 Numbers n such that 10^(2n+1)-8*10^n-1 is prime.

Original entry on oeis.org

1, 5, 13, 43, 169, 181, 1579, 18077, 22652, 157363
Offset: 1

Views

Author

Ray Chandler, Dec 28 2010

Keywords

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[If[PrimeQ[10^(2n + 1) - 8*10^n - 1], Print[n]], {n, 3000}]
  • PARI
    is(n)=ispseudoprime(10^(2*n+1)-8*10^n-1) \\ Charles R Greathouse IV, Jun 13 2017

Formula

a(n) = (A077776(n)-1)/2.

Extensions

Added one more term from PWP table, by Patrick De Geest, Nov 05 2014

A258372 Smallest nonnegative number k not starting or ending with the digit 1 that forms a prime when it is sandwiched between n ones to the left of k and n ones to the right of k.

Original entry on oeis.org

0, 3, 4, 8, 36, 8, 5, 72, 28, 6, 79, 212, 23, 6, 73, 24, 52, 62, 3, 28, 220, 53, 75, 58, 228, 9, 265, 89, 214, 86, 215, 4, 7, 39, 295, 40, 87, 216, 97, 6, 264, 53, 287, 223, 4, 239, 259, 25, 57, 364, 49, 38, 93, 86, 27, 30, 80, 24, 6, 356, 50, 645, 395, 206
Offset: 1

Views

Author

Felix Fröhlich, May 28 2015

Keywords

Comments

n = 1 is the only case where a(n) = 0, since for any n > 1, A138148(n) is divisible by A002275(n).
No n exists such that a(n) = 2, since any number of the form A100706(n)+A011557(n) is of the form A000533(n)*A002275(n+1) (see comment by Robert Israel in A107123).
a(n) = 3 iff n is in A107123.
a(n) = 4 iff n is in A107124.
If k has an even number of digits and is a multiple of 11, then k is not a term. If k = (10^r+1)(10^m-1)/9 for some m > 0, r >= 0, then k is not a term. If A272232(k) = 0, then k is not a term. - Chai Wah Wu, Nov 08 2019

Examples

			a(1) = 0, because 101 is prime.
a(5) = 36, because the smallest x >= 0 such that 11111_x_11111 (where '_' denotes concatenation) is prime is 36. The decimal expansion of that prime is 111113611111.
		

Crossrefs

Programs

  • Mathematica
    Table[k = 0; s = Table[1, {n}]; While[Or[!PrimeQ[FromDigits[s ~Join~ IntegerDigits[k] ~Join~ s]], Or[First@ IntegerDigits@ k == 1, Last@ IntegerDigits@ k == 1]], k++]; k, {n, 64}] (* Michael De Vlieger, May 28 2015 *)
  • PARI
    a000042(n) = (10^n-1)/9
    a(n) = my(k=0); while(k==10 || k%10==1 || k\(10^(#Str(k)-1))==1 || !ispseudoprime(eval(Str(a000042(n), k, a000042(n)))), k++); k

A077779 Numbers k such that (10^k - 1)/9 + 2*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

3, 5, 39, 195, 19637
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.
a(6) > 2*10^5. - Robert Price, Apr 02 2016
The number k = 1 would also correspond to a prime, 3, but not "near-repdigit" or "wing" in a strict sense. - M. F. Hasler, Feb 09 2020

Examples

			5 is a term because (10^5 - 1)/9 + 2*10^2 = 11311.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

See A332113 for the (prime and composite) near-repunit palindromes 1..131..1.

Programs

  • Mathematica
    Do[ If[ PrimeQ[(10^n + 18*10^Floor[n/2] - 1)/9], Print[n]], {n, 3, 20000, 2}] (* Robert G. Wilson v, Dec 16 2005 *)

Formula

a(n) = 2*A107123(n+1) + 1.

Extensions

Name corrected by Jon E. Schoenfield, Oct 31 2018

A077780 Numbers k such that (10^k - 1)/9 + 3*10^floor(k/2) is palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

5, 7, 65, 91, 3089
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.

Examples

			7 is a term because (10^7 - 1)/9 + 3*10^3 = 1114111.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[ If[ PrimeQ[(10^n + 27*10^Floor[n/2] - 1)/9], Print[n]], {n, 3, 3100, 2}] (* Robert G. Wilson v, Dec 16 2005 *)

Formula

a(n) = 2*A107124(n) + 1.

Extensions

Name corrected by Jon E. Schoenfield, Oct 31 2018

A077783 Numbers k such that (10^k-1)/9 + 4*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

3, 15, 91, 231, 1363, 2497, 4963, 5379, 12397, 26395, 120253, 200145
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.
a(13) > 200466. - _Robert Price, Sep 05 2023

Examples

			15 is a term because (10^15 - 1)/9 + 4*10^7 = 111111151111111.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Magma
    [n: n in [3..2000 by 2] | IsPrime((10^n+36*10^(n div 2)-1) div 9)]; // Vincenzo Librandi, Oct 13 2015
  • Mathematica
    Do[ If[ PrimeQ[(10^n + 36*10^Floor[n/2] - 1)/9], Print[n]], {n, 3, 26400, 2}] (* Robert G. Wilson v, Dec 16 2005 *)

Formula

a(n) = 2*A107125(n) + 1.

Extensions

a(11) from Robert Price, Oct 12 2015
Name edited by Jon E. Schoenfield, Oct 13 2015
a(12) from Robert Price, Sep 05 2023

A107125 Numbers k such that (10^(2*k+1) + 36*10^k - 1)/9 is prime.

Original entry on oeis.org

0, 1, 7, 45, 115, 681, 1248, 2481, 2689, 6198, 13197, 60126, 100072
Offset: 1

Views

Author

Farideh Firoozbakht, May 19 2005

Keywords

Comments

k is in the sequence iff the palindromic number 1(k).5.1(k) is prime (dot between numbers means concatenation). If k is in the sequence then k is not of the forms 3m+2, 18m+12, 18m+14, 22m+4, 22m+6, etc. (the proof is easy).
a(14) > 100233. - _Robert Price, Sep 05 2023

Examples

			1248 is in the sequence because (10^(2*1248+1)+36*10^1248-1)/9=1(1248).5.1(1248) is prime.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Magma
    [n: n in [0..700] | IsPrime((10^(2*n+1)+36*10^n-1) div 9)]; // Vincenzo Librandi, Oct 13 2015
    
  • Mathematica
    Do[If[PrimeQ[(10^(2n + 1) + 36*10^n - 1)/9], Print[n]], {n, 2200}]
  • PARI
    is(n)=ispseudoprime((10^(2*n+1)+36*10^n-1)/9) \\ Charles R Greathouse IV, Jun 06 2017

Formula

a(n) = (A077783(n)-1)/2.

Extensions

Edited by Ray Chandler, Dec 28 2010
a(12) from Robert Price, Oct 12 2015
a(13) from Robert Price, Sep 05 2023

A107126 Numbers n such that (10^(2n+1)+45*10^n-1)/9 is prime.

Original entry on oeis.org

10, 14, 40, 59, 160, 412, 560, 1289, 1846
Offset: 1

Views

Author

Farideh Firoozbakht, May 19 2005

Keywords

Comments

n is in the sequence iff the palindromic number 1(n).6.1(n) is prime (dot between numbers means concatenation). If n is in the sequence then n is not of the forms 3m, 6m + 1, 16m + 2, 16m + 5, 22m + 1, 22m + 9, etc. (the proof is easy).
a(10) > 200000 - Robert Price, Jan 23 2025

Examples

			14 is in the sequence because (10^(2*14+1)+45*10^14-1)/9=1(14).6.1(14) = 11111111111111611111111111111 is prime.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[If[PrimeQ[(10^(2n + 1) + 45*10^n - 1)/9], Print[n]], {n, 2500}]
    Position[Table[FromDigits[Join[PadRight[{},n,1],{6},PadRight[{},n,1]]],{n,1850}],?PrimeQ]//Flatten (* _Harvey P. Dale, Jun 22 2017 *)
  • PARI
    is(n)=ispseudoprime((10^(2*n+1)+45*10^n-1)/9) \\ Charles R Greathouse IV, Jun 06 2017

Formula

a(n) = (A077787(n)-1)/2.

Extensions

Edited by Ray Chandler, Dec 28 2010.

A077777 Numbers k such that 7*(10^k - 1)/9 - 5*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

3, 7, 15, 21, 25, 961, 1899, 3891, 15097, 17847
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.
a(11) > 2*10^5. - Robert Price, Nov 02 2015
A183178(1) = 0 would correspond to an initial term 1 in this sequence which yields the prime 2 (which has a "wing" of length 0 and is a palindrome and repdigit but not near-repdigit). - M. F. Hasler, Feb 08 2020

Examples

			15 is a term because 7*(10^15 - 1)/9 - 5*10^7 = 777777727777777.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[ If[ PrimeQ[(7*10^n - 45*10^Floor[n/2] - 7)/9], Print[n]], {n, 3, 1000, 2}] (* Robert G. Wilson v, Dec 16 2005 *)
  • PARI
    for(k=1,oo,ispseudoprime(10^k\9*7-5*10^(k\2))&&print1(k",")) \\ M. F. Hasler, Feb 08 2020

Formula

a(n) = 2*A183178(n+1) + 1.

Extensions

Name corrected by Jon E. Schoenfield, Oct 31 2018

A077778 Numbers k such that (10^k - 1) - 7*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

3, 17, 19, 705, 1061, 1395, 2631, 3837, 5749, 11753, 13537, 125877, 269479
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.

Examples

			17 is a term because (10^17 - 1) - 7*10^8 = 99999999299999999.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[ If[ PrimeQ[10^n - 7*10^Floor[n/2] - 1], Print[n]], {n, 3, 14600, 2}] (* Robert G. Wilson v, Dec 16 2005 *)

Formula

a(n) = 2*A115073(n) + 1.

Extensions

Two more terms from PWP table added by Patrick De Geest, Nov 05 2014
Name corrected by Jon E. Schoenfield, Oct 31 2018

A077781 Numbers k such that 7*(10^k - 1)/9 - 3*10^floor(k/2) is a palindromic wing prime (also known as near-repdigit palindromic prime).

Original entry on oeis.org

5, 7, 13, 47, 73, 139, 1123, 1447, 6877, 8209, 18041, 27955, 39311, 64801
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.
a(15) > 2*10^5. - Robert Price, Nov 23 2015

Examples

			7 is a term because 7*(10^7 - 1)/9 - 3*10^3 = 7774777.
		

References

  • C. Caldwell and H. Dubner, The near repdigit primes A(n-k-1)B(1)A(k), especially 9(n-k-1)8(1)9(k), Journal of Recreational Mathematics, Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[ If[ PrimeQ[(7*10^n - 27*10^Floor[n/2] - 7)/9], Print[n]], {n, 3, 39400, 2}] (* Robert G. Wilson v, Dec 16 2005 *)
  • PARI
    for(n=1, 1e3, if(ispseudoprime((7*10^(2*n+1)-27*10^n-7)/9), print1(2*n+1, ", "))) \\ Altug Alkan, Nov 23 2015

Formula

a(n) = 2*A183179(n) + 1.

Extensions

a(14) from Robert Price, Nov 23 2015
Name corrected by Jon E. Schoenfield, Oct 31 2018
Previous Showing 11-20 of 45 results. Next