OFFSET
1,1
MAPLE
A166745 := proc(n) local p, d; p := ithprime(n) ; d := [] ; for e from 3 to 0 by -1 do r := floor(p/2^e) ; if r > 0 then d := [op(d), seq(2^e, i=1..r)] ; p := p mod (2^e) ; fi; end do ; add(op(p, d)*10^(p-1), p=1..nops(d)) ; end: seq(A166745(n), n=1..80) ; # R. J. Mathar, Oct 24 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paul Curtz, Oct 21 2009
EXTENSIONS
Edited (but not checked) by N. J. A. Sloane, Oct 22 2009
More terms from R. J. Mathar, Oct 24 2009
Name edited by Jon E. Schoenfield, May 09 2019
STATUS
approved