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.

Showing 1-3 of 3 results.

A088281 a(1) = 11; for n > 1, palindromic primes in which a single digit is sandwiched between strings of '1's.

Original entry on oeis.org

11, 101, 131, 151, 181, 191, 11311, 11411, 1114111, 1117111, 111181111, 111191111, 1111118111111, 111111151111111, 111111181111111, 111111111161111111111, 11111111111111611111111111111, 111111111111111111131111111111111111111, 11111111111111111111111111911111111111111111111111111
Offset: 0

Views

Author

Amarnath Murthy, Sep 29 2003

Keywords

Comments

For n > 1, near-repunit palindromic primes (or, palindromic terms of A105992). - Lekraj Beedassy, Jun 05 2009

Crossrefs

Cf. A088282, A088283, A088284 (analog with string of '3's, '7's resp. '9's).
Cf. A105992 (near-repunit primes), A065074 (which contain the digit 0), A034093 (number of primes by changing one 1 to 0), A065083 (least k for which that = n).
Cf. A164937 (near-repdigit primes); with 2, ..., 9 as repeated digit: A105982, A105981, A105980, A105979, A105978, A105977, A105976, A105975.

Programs

  • Mathematica
    Join[{11},Select[Flatten[Table[FromDigits[Join[PadRight[{},n,1],{d},PadRight[{},n,1]]],{n,26},{d,Cases[Range[0,9],Except[1]]}]],PrimeQ]] (* Harvey P. Dale, Nov 04 2024 *)
  • PARI
    print1(11); for(L=1,19,for(d=0,9,d!=1 && ispseudoprime(p=10^(2*L+1)\9+(d-1)*10^L) && print1(","p))) \\ M. F. Hasler, Feb 07 2020

Extensions

More terms from David Wasserman, Aug 03 2005
Offset changed from 0 to 1 by Lekraj Beedassy, Jun 05 2009
Edited by M. F. Hasler, Feb 07 2020

A088283 Palindromic primes in which a single digit is sandwiched between strings of 7's.

Original entry on oeis.org

727, 757, 787, 797, 77377, 77477, 77977, 7772777, 7774777, 7778777, 777767777, 77777677777, 7777774777777, 777777727777777, 777777757777777, 77777777677777777, 77777777977777777, 777777777727777777777
Offset: 1

Views

Author

Amarnath Murthy, Sep 29 2003

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Flatten[Table[FromDigits[Flatten[Join[{PadRight[{},n,7], i, PadRight[ {},n,7]}]]],{n,10},{i,0,9}]],PrimeQ] (* Harvey P. Dale, Jun 15 2015 *)

Extensions

More terms from David Wasserman, Aug 03 2005

A088284 Palindromic primes in which a single digit is sandwiched between nonempty strings of 9's.

Original entry on oeis.org

919, 929, 99999199999, 99999999299999999, 9999999992999999999, 999999999999919999999999999, 99999999999999499999999999999, 999999999999999999999949999999999999999999999, 99999999999999999999999999899999999999999999999999999
Offset: 1

Views

Author

Amarnath Murthy, Sep 29 2003

Keywords

Crossrefs

Subsequence of A002385.

Programs

  • Mathematica
    Select[Flatten[Table[FromDigits[Join[PadRight[{},n,9],{d},PadRight[{},n,9]]],{n,30},{d,Range[8]}]],PrimeQ] (* Harvey P. Dale, Mar 17 2023 *)

Extensions

More terms from David Wasserman, Aug 03 2005
Name clarified by Christian Stump, Mar 31 2015
Showing 1-3 of 3 results.