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.

A262644 Base-10 representation of the primes at A262643.

Original entry on oeis.org

3, 41, 2083, 26041, 1692709, 677083367, 627278646679, 187343343120121, 159655659994018667, 2255131136576400770887, 1104116174856823349350321, 18691706438024838972135587027, 241078822520146767324214702284691, 396825475231058771412223714725086039
Offset: 1

Views

Author

Clark Kimberling, Oct 24 2015

Keywords

Examples

			n   A262643(n)    base-10 representation
1     3                  3
2     131                41
3     31313              2083
		

Crossrefs

Cf. A262643.

Programs

  • Mathematica
    s = {3}; base = 5; 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  (* A262643 *)
    Map[FromDigits[ToString[#], base] &, s]  (* A262644 *)
    (* 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.