A277591 Numbers k such that k/10^m == 4 mod 10, where 10^m is the greatest power of 10 that divides n.
4, 14, 24, 34, 40, 44, 54, 64, 74, 84, 94, 104, 114, 124, 134, 140, 144, 154, 164, 174, 184, 194, 204, 214, 224, 234, 240, 244, 254, 264, 274, 284, 294, 304, 314, 324, 334, 340, 344, 354, 364, 374, 384, 394, 400, 404, 414, 424, 434, 440, 444, 454, 464, 474
Offset: 1
Links
- Clark Kimberling, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
z = 460; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}] p[b_, d_] := Flatten[Position[a[b], d]] p[10, 1] (* A277588 *) p[10, 2] (* A277589 *) p[10, 3] (* A277590 *) p[10, 4] (* A277591 *) p[10, 5] (* A277592 *) p[10, 6] (* A277593 *) p[10, 7] (* A277594 *) p[10, 8] (* A277595 *) p[10, 9] (* A277596 *)
Comments