A025646 Exponent of 4 (value of i) in n-th number of form 4^i*5^j.

0, 1, 0, 2, 1, 0, 3, 2, 1, 0, 4, 3, 2, 1, 0, 5, 4, 3, 2, 1, 0, 6, 5, 4, 3, 2, 1, 0, 7, 6, 5, 4, 3, 2, 1, 8, 0, 7, 6, 5, 4, 3, 2, 9, 1, 8, 0, 7, 6, 5, 4, 3, 10, 2, 9, 1, 8, 0, 7, 6, 5, 4, 11, 3, 10, 2, 9, 1, 8, 0, 7, 6, 5, 12, 4, 11, 3, 10, 2, 9, 1, 8, 0, 7, 6, 13, 5, 12, 4, 11, 3, 10, 2, 9, 1, 8, 0, 7, 14, 6, 13

Offset

1,4

Links

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

Index entries for sequences which agree for a long time but are different

Mathematica

With[{nn=15}, IntegerExponent[#, 4]&/@Union[Flatten[Table[4^x 5^y, {x, 0, nn}, {y, 0, nn}]]]] (* Harvey P. Dale, May 10 2019 *)

Crossrefs

Cf. A025617.

Differs from A025661 at a(1881).

Sequence in context: A330238 A025670 A122200 * A025661 A025671 A025652

Adjacent sequences: A025643 A025644 A025645 * A025647 A025648 A025649

Keyword

nonn

Author

David W. Wilson

Status

approved