A381834 - OEIS

%I #5 Mar 09 2025 12:57:29

%S 2,5,12,17,24,36,65,72,84,112,132,160,208,257,264,276,304,324,352,400,

%T 516,544,592,704,784,896,1025,1032,1044,1072,1092,1120,1168,1284,1312,

%U 1360,1472,1552,1664,1856,2052,2080,2128,2240,2320,2432,2624,3088,3200,3392

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

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

%Y Cf. A053737, A235127, A381837.

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

%K nonn,base

%O 1,1

%A _Peter Luschny_, Mar 09 2025