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.

A262638 Base-10 representation of the primes at A262637.

Original entry on oeis.org

2, 59, 16319, 261887, 4193279, 335527921, 108447661849, 4672099717159297, 4398209237750224927, 17990359701977183946703, 1799003029749921411529973, 5066896351045516069934415169, 4834760092472588512731587662879, 16859870882498008730755778659813363
Offset: 1

Views

Author

Clark Kimberling, Oct 24 2015

Keywords

Examples

			n   A262637(n)    base-10 representation
1    2                  2
2    323                59
3    3332333            16319
		

Crossrefs

Cf. A262637.

Programs

  • Mathematica
    s = {2}; base = 4; 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  (* A262637 *)
    Map[FromDigits[ToString[#], base] &, s]  (* A262638 *)
    (* 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.