A381835 k/9 is in this list if k > 3 and A053735(k) = A007949(k), i.e. if digitsum(k, 3) = valuation(k, 3).

2, 4, 10, 15, 21, 28, 33, 39, 57, 72, 82, 87, 93, 111, 126, 144, 165, 180, 198, 244, 249, 255, 273, 288, 306, 327, 342, 360, 414, 459, 489, 504, 522, 576, 621, 675, 730, 735, 741, 759, 774, 792, 813, 828, 846, 900, 945, 975, 990, 1008, 1062, 1107, 1161, 1224, 1269, 1323

Offset: 0

Author

Peter Luschny, Mar 09 2025

Keywords

• nonn
• base

Crossrefs

Cf. A053735, A007949, A381838.

Cf. A381834 (base = 4), A381833 (base = 5).

Programs

Mathematica

Select[Range[9, 12000, 9], DigitSum[#, 3] == IntegerExponent[#, 3] &] / 9