OFFSET
1,1
REFERENCES
Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 63.
MAPLE
A055642 := proc(n) if n = 0 then 1 ; else ilog10(n)+1 ; fi ; end: cat2 := proc(a, b) a*10^A055642(b)+b ; end: A136420 := proc(nmax) local p, bigpr, a, nodigs, bigprlen; p := 2 ; bigpr := 0 ; bigprlen := 0 ; a := [] ; while nops(a) < nmax do while bigprlen < 4 do bigpr := cat2(bigpr, p) ; bigprlen := bigprlen+A055642(p) ; p := nextprime(p) ; od: nodigs := bigprlen-4 ; a := [op(a), floor(bigpr/10^nodigs)] ; bigpr := bigpr mod (10^nodigs) ; bigprlen := bigprlen-4 ; od: RETURN(a) ; end: A136420(60) ; # R. J. Mathar, Apr 22 2008
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, Apr 21 2008
EXTENSIONS
More terms from R. J. Mathar, Apr 22 2008
STATUS
approved