A230854 Numbers n such that m + (sum of digits in base-3 representation of m) = n has exactly two solutions.
4, 8, 10, 12, 14, 18, 20, 22, 24, 30, 36, 38, 40, 42, 46, 48, 50, 52, 58, 64, 66, 68, 70, 74, 76, 78, 80, 82, 88, 90, 92, 94, 96, 100, 102, 104, 106, 112, 118, 120, 122, 124, 128, 130, 132, 134, 140, 146, 148, 150, 152, 156, 158, 160, 162, 164, 170, 172, 174, 176, 178, 182, 184, 186, 188
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[Tally[Table[m+Total[IntegerDigits[m,3]],{m,200}]],#[[2]]==2&][[All,1]] (* Harvey P. Dale, Aug 17 2019 *)