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-2 of 2 results.

A262650 Base-10 representation of the primes at A262649.

Original entry on oeis.org

2, 197, 69313, 8813963, 84621544849, 527772818401391, 6822795350471323, 27886178439493066223, 31708613496145827870113, 43587702672242054520081077, 13602652894439672099923526011, 22768853068939384975328656897381, 715213262078891560583355909701176813
Offset: 1

Views

Author

Clark Kimberling, Oct 27 2015

Keywords

Examples

			n   A262649(n)    base-10 representation
1    2                   2
2    525                 197
3    1252521             69313
		

Crossrefs

Cf. A262649.

Programs

  • Mathematica
    s = {2}; base = 6; z = 20; Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s]], Reverse[#]] &[IntegerDigits[#, base]], base]] &];
    AppendTo[s, FromDigits[IntegerDigits[tmp, base]]], {z}]; s  (* A262649 *)
    Map[FromDigits[ToString[#], base] &, s]  (* A262650 *)
    (* Peter J. C. Moses, Sep 01 2015 *)

A262627 Minimal nested base-2 palindromic primes with seed 0.

Original entry on oeis.org

0, 101, 11001010011, 101100101001101, 10101011001010011010101, 111010101100101001101010111, 1111101010110010100110101011111, 101111111010101100101001101010111111101, 110101111111010101100101001101010111111101011
Offset: 1

Views

Author

Clark Kimberling, Oct 02 2015

Keywords

Comments

Using only base-2 digits 0 and 1, let s be a palindrome and put a(1) = s. Let a(2) be the least palindromic prime having s in the middle; for n > 2, let a(n) be the least palindromic prime have a(n-1) in the middle. Then (a(n)) is the sequence of minimal nested base-2 palindromic primes with seed s -- a(1) being not prime, of course.
Guide to related sequences
base seed base-b repr. base-10 repr.

Examples

			a(3) = 11001010011 =A117697(15) is the least prime having a(2) = 101 in its middle. Triangular format:
               0
              101
          11001010011
        101100101001101
    10101011001010011010101
  111010101100101001101010111
1111101010110010100110101011111
		

Crossrefs

Cf. A117697, A261881 (base 10), A262628-A262662.

Programs

  • Mathematica
    s = {0}; base = 2; z = 20; Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s]], Reverse[#]] &[IntegerDigits[#, base]], base]] &];
    AppendTo[s, FromDigits[IntegerDigits[tmp, base]]], {z}]; s  (* A262627 *)
    Map[FromDigits[ToString[#], base] &, s]  (* A262628 *)
    (* Peter J. C. Moses, Sep 01 2015 *)
Showing 1-2 of 2 results.