OFFSET
1,1
COMMENTS
Numbers with one 7, and zero or more 1s. - Daniel Forgues, Oct 09 2011
LINKS
Eric Weisstein's World of Mathematics, Multiplicative Digital Root
FORMULA
There are n(n+1)/2 elements up to 10^n, so a(n) is about 10^sqrt(2n).
MATHEMATICA
Sort[Flatten[Table[FromDigits/@Permutations[Join[{7}, PadRight[{}, n, 1]]], {n, 0, 10}]]] (* Harvey P. Dale, Jul 20 2015 *)
PROG
(PARI) t(k)=while(k>9, k=prod(i=1, #k=digits(k), k[i])); k
for(n=1, 1e8, if(t(n) == 7, print1(n, ", "))); \\ Altug Alkan, Oct 22 2015
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved