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.

A086048 Position of first occurrence of n in concatenated primes (A033308, Copeland-Erdos constant).

Original entry on oeis.org

1, 6, 2, 3, 22, 4, 32, 5, 42, 13, 48, 6, 63, 8, 23, 78, 33, 10, 96, 12, 590, 111, 114, 2, 129, 132, 138, 64, 150, 16, 159, 9, 15, 124, 25, 3, 189, 20, 43, 73, 207, 22, 216, 24, 228, 234, 237, 26, 249, 76, 258, 79, 264, 28, 270, 276, 279, 4, 291, 30, 300, 32, 830
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 07 2003

Keywords

Comments

A033308(a(n))=A000030(n);
A033308(a(n)+i)=A033307(A086044(n)+i), 0<=i < A055642(n).

Links

Crossrefs

Cf. A086049, A086044.

A086049 Position of first occurrence of n-th prime in concatenated primes (A033308, Copeland-Erdos constant).

Original entry on oeis.org

2, 3, 4, 5, 6, 8, 10, 12, 2, 16, 9, 20, 22, 24, 26, 28, 30, 32, 34, 5, 38, 40, 42, 44, 46, 48, 51, 54, 57, 7, 63, 8, 19, 72, 75, 78, 81, 84, 33, 37, 93, 96, 99, 102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 64, 147, 150, 153, 16, 159, 67, 18
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 07 2003

Keywords

Comments

A033308(a(n)) = A000030(A000040(n));
A033308(a(n)+i) = A033307(A086044(A000040(n))+i), 0 <= i < A055642(A000040(n)).

Links

Crossrefs

Cf. A033307, A033308, A086044, A086048, A086050.

Programs

  • Maple
    N:= 100: # for a(1)..a(N)
S:= cat(".",seq(ithprime(i),i=1..N)):
seq(StringTools:-Search(convert(ithprime(i),string),S),i=1..N); # Robert Israel, Jun 28 2019

A086045 Position of second occurrence of n in concatenated numbers (A033307, Champernowne constant).

Original entry on oeis.org

12, 11, 16, 18, 20, 22, 24, 26, 28, 30, 191, 14, 15, 54, 74, 94, 114, 134, 154, 174, 252, 33, 36, 37, 76, 96, 116, 136, 156, 176, 282, 53, 55, 58, 59, 98, 118, 138, 158, 178, 312, 73, 75, 77, 80, 81, 120, 140, 160, 180, 342, 93, 95, 97, 99, 102, 103, 142
Offset: 0

Views

Author

Reinhard Zumkeller, Jul 07 2003

Keywords

Comments

A033307(a(n)) = A000030(n); a(n)>A086044(n);
A033307(a(n)+i) = A033307(A086044(n)+i), 0<=i < A055642(n).

Links

Programs

  • Mathematica
    Join[{12},Module[{nn=350,cno},cno=Flatten[IntegerDigits/@Range[nn]];Table[ SequencePosition[ cno,IntegerDigits[n],2][[2,1]],{n,60}]]+1] (* Harvey P. Dale, Dec 09 2022 *)
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.