OFFSET
1,1
MAPLE
read("transforms3") ; A031346 := proc(n) local nm, a, d ; nm := n ; a := 0 ; while nm > 10 do nm := mul(d, d=convert(nm, base, 10)) ; a := a+1: od: a ; end: L := BFILETOLIST("b006567.txt") : for i from 1 to 300 do if A031346(op(i, L)) = 1 then printf("%d, ", op(i, L)) ; fi; od: # R. J. Mathar, Apr 29 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 17 2009
EXTENSIONS
More terms from R. J. Mathar, Apr 29 2009
STATUS
approved