A051808 Numbers with nonzero multiplicative digital root 6.
6, 16, 23, 28, 32, 44, 47, 48, 60, 61, 68, 74, 82, 84, 86, 106, 116, 123, 128, 132, 144, 147, 148, 160, 161, 168, 174, 182, 184, 186, 203, 208, 213, 218, 224, 227, 228, 230, 231, 238, 242, 244, 246, 256, 264, 265, 267, 272, 276
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- Index entries for 10-automatic sequences.
Crossrefs
Part of histogram of A051802.
Programs
-
Mathematica
nzdr6Q[n_]:=NestWhile[Times@@DeleteCases[IntegerDigits[#],0]&,n,#>9&]==6; Select[Range[ 300],nzdr6Q] (* Harvey P. Dale, Jul 20 2024 *)
Formula
A051802^-1(6)