A381834 k/16 is in this list if k > 4 and A053737(k) = A235127(k), i.e. if digitsum(k, 4) = valuation(k, 4).

2, 5, 12, 17, 24, 36, 65, 72, 84, 112, 132, 160, 208, 257, 264, 276, 304, 324, 352, 400, 516, 544, 592, 704, 784, 896, 1025, 1032, 1044, 1072, 1092, 1120, 1168, 1284, 1312, 1360, 1472, 1552, 1664, 1856, 2052, 2080, 2128, 2240, 2320, 2432, 2624, 3088, 3200, 3392

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Mathematica

Select[Range[16, 60000, 16], DigitSum[#, 4] == IntegerExponent[#, 4] &] / 16

Crossrefs

Cf. A053737, A235127, A381837.

Cf. A381835 (base = 3), A381833 (base = 5).

Sequence in context: A219954 A066267 A084122 * A042143 A042467 A024465

Adjacent sequences: A381831 A381832 A381833 * A381835 A381836 A381837

Keyword

nonn,base,new

Author

Peter Luschny, Mar 09 2025

Status

approved