A034048 Numbers with multiplicative digital root value 0.
0, 10, 20, 25, 30, 40, 45, 50, 52, 54, 55, 56, 58, 59, 60, 65, 69, 70, 78, 80, 85, 87, 90, 95, 96, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 120, 125, 130, 140, 145, 150, 152, 154, 155, 156, 158, 159, 160, 165, 169, 170, 178, 180, 185, 187, 190, 195
Offset: 1
Examples
20 is in the sequence because 2 * 0 = 0. 25 is in the sequence because 2 * 5 = 10 and 1 * 0 = 0.
Links
- Franklin T. Adams-Watters, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Multiplicative Digital Root
- Index entries for 10-automatic sequences.
Crossrefs
Programs
-
Mathematica
mdr0Q[n_]:=NestWhile[Times@@IntegerDigits[#]&,n,#>9&]==0; Select[Range[ 0,200],mdr0Q] (* Harvey P. Dale, Jul 21 2020 *)
-
PARI
is(n)=factorback(digits(n))==0 \\ Charles R Greathouse IV, Feb 13 2017
Comments