|
|
A034051
|
|
Numbers with multiplicative digital root value 4.
|
|
18
|
|
|
4, 14, 22, 27, 39, 41, 72, 89, 93, 98, 114, 122, 127, 139, 141, 172, 189, 193, 198, 212, 217, 221, 249, 266, 271, 277, 294, 319, 333, 338, 346, 364, 379, 383, 391, 397, 411, 429, 436, 463, 492, 626, 634, 643, 662, 677, 712, 721, 727, 739, 767, 772, 776, 793
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
mdr:= proc(n) option remember;
if n < 10 then return(n) fi;
procname(convert(convert(n, base, 10), `*`))
end proc:
|
|
MATHEMATICA
|
Select[Range@ 800, FixedPoint[Times @@ IntegerDigits@ # &, #] == 4 &] (* Michael De Vlieger, Oct 19 2015 *)
|
|
PROG
|
(PARI) t(n) = {while(n>9, n=prod(i=1, #n=digits(n), n[i])); n};
for(n=0, 1e4, if(t(n) == 4, print1(n", "))); \\ Altug Alkan, Oct 19 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|