login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A261966 Minimal appendage-sequence of primes with seed 1, base 2, and appendages of the form 0s(n); see Comments. 2
1, 101, 101001, 101001011, 1010010110001, 1010010110001011, 101001011000101100101, 10100101100010110010100101, 101001011000101100101001010001, 101001011000101100101001010001000011, 10100101100010110010100101000100001101111 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
The minimal appendage-sequence of primes with seed s and base b is defined as follows:
a(1) = s
a(2) = least prime that begins with s0;
a(3) = least prime that begins with a(2)0;
a(n) = least prime that begins with a(n-1)0.
LINKS
EXAMPLE
a(7) = 101001011000101100101 comes from a(6) = 1010010110001011 by appending 00101 to a(6); the result is the least prime that begins with 1010010110001011. Note that "internal 0's" are possible; e.g., the appendage, 00101 in a(6) contains an "internal 0" (the 3rd 0). Triangular format:
1
101
101001
101001011
1010010110001
1010010110001011
101001011000101100101
10100101100010110010100101
101001011000101100101001010001
MATHEMATICA
base = 2; s = {{1}}; Do[NestWhile[# + 1 &, 1, (nn = #; ! PrimeQ[FromDigits[tmp =IntegerDigits[FromDigits[Flatten[IntegerDigits[Join[Last[s], {0}, IntegerDigits[nn - Sum[base^n, {n, l = NestWhile[# + 1 &, 1, ! (nn - (Sum[base^n, {n, #}]) < 0) &] - 1}], base, l + 1]]]]]], base]]) &]; AppendTo[s, {FromDigits[tmp]}], {12}];
u = Flatten[s]
Column[Flatten[s]] (* Peter J. C. Moses, Sep 03 2015 *)
CROSSREFS
Cf. A261965.
Sequence in context: A183056 A261881 A262633 * A076127 A180053 A138721
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Sep 25 2015
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)