A381833 k/25 is in this list if k > 5 and A053824(k) = A112765(k), i.e. if digitsum(k, 5) = valuation(k, 5).

2, 6, 15, 26, 35, 55, 100, 126, 135, 155, 200, 255, 300, 400, 626, 635, 655, 700, 755, 800, 900, 1125, 1255, 1300, 1400, 1625, 1900, 2125, 2625, 3126, 3135, 3155, 3200, 3255, 3300, 3400, 3625, 3755, 3800, 3900, 4125, 4400, 4625, 5125, 6255, 6300, 6400, 6625, 6900, 7125

Offset

1,1

Links

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

Mathematica

Select[Range[25, 180000, 25], DigitSum[#, 5] == IntegerExponent[#, 5] &] / 25

Crossrefs

Cf. A053824, A112765, A381836.

Cf. A381835 (base = 3), A381834 (base = 4).

Sequence in context: A091766 A269706 A396064 * A293402 A192691 A360405

Adjacent sequences: A381830 A381831 A381832 * A381834 A381835 A381836

Keyword

nonn,base

Author

Peter Luschny, Mar 09 2025

Status

approved