A051806 Numbers with nonzero multiplicative digital root 4.

4, 14, 22, 27, 39, 40, 41, 58, 72, 85, 89, 93, 98, 104, 114, 122, 127, 139, 140, 141, 158, 172, 185, 189, 193, 198, 202, 207, 212, 217, 220, 221, 245, 249, 254, 266, 270, 271, 277, 294, 309, 319, 333, 338, 346, 364, 379, 383

Offset: 1

Author

Dan Hoey, Dec 09 1999

Keywords

• nonn
• easy
• base

Links

• Index entries for 10-automatic sequences.

Crossrefs

Part of histogram of A051802.

Programs

Mathematica

mdr4Q[n_]:=NestWhile[Times@@(IntegerDigits[#]/.(0->1))&,n,#>9&]==4; Select[ Range[ 400],mdr4Q] (* Harvey P. Dale, Jul 02 2021 *)

Formula

A051802^-1(4)