A104952 Primes from merging of 9 successive digits in decimal expansion of the Champernowne Constant.

728293031, 282930313, 343536373, 940414243, 727374757, 778798081, 586878889, 596979899, 798991001, 899100101, 810911011, 911011111, 720820921, 736836937, 937037137, 939039139, 850951051, 951051151, 756856957, 973073173, 876977077

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

The first 2,800 digits of the Champernowne Constant as calculated at WorldWideSchool.org.

Mathematica

Select[Select[FromDigits /@ Partition[Flatten[IntegerDigits /@ Range[600]], 9, 1], PrimeQ], IntegerLength[#] == 9 &] (*Vincenzo Librandi, Apr 24 2013
Select[FromDigits/@Partition[RealDigits[ChampernowneNumber[], 10, 3000][[1]], 9, 1], IntegerLength[#]==9&&PrimeQ[#]&] (* Harvey P. Dale, May 02 2019 *)

Crossrefs

Cf. A033307.

Sequence in context: A086041 A244186 A035518 * A015370 A068725 A104932

Adjacent sequences: A104949 A104950 A104951 * A104953 A104954 A104955

Keyword

nonn,base

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005

Extensions

Changed offset from 0 to 1 by Vincenzo Librandi, Apr 24 2013

Status

approved