OFFSET
1,2
COMMENTS
This sequence refers to a variant of A047777 in which one does not require that all primes are distinct. See A229181 for first differences of this sequence. - M. F. Hasler, Sep 15 2013
FORMULA
MATHEMATICA
A229181 = {1}; digits = Join[{{1}}, RealDigits[Pi, 10, 5000] // First // Rest]; digits //. {a:({_Integer..}..), b__Integer /; PrimeQ[FromDigits[{b}]], c___Integer} :> (Print[lg = {b} // Length]; AppendTo[A229181, lg]; {{1}, c}) ; Join[{1}, Accumulate[A229181] + 1] (* Jean-François Alcover, Oct 17 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Mark R. Diamond (markd(AT)psy.uwa.edu.au), Feb 22, 2000
STATUS
proposed