|
%I #4 Dec 03 2016 11:52:09
%S 4,9,14,19,24,29,34,39,40,44,49,54,59,64,69,74,79,84,89,90,94,99,104,
%T 109,114,119,124,129,134,139,140,144,149,154,159,164,169,174,179,184,
%U 189,190,194,199,204,209,214,219,224,229,234,239,240,244,249,254
%N (1/2)*A277595.
%H Clark Kimberling, <a href="/A277601/b277601.txt">Table of n, a(n) for n = 1..10000</a>
%t z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
%t p[b_, d_] := Flatten[Position[a[b], d]]
%t p[10, 2]/2 (* A277597 *)
%t p[10,4]/3 (* A277598 *)
%t p[10,5]/5 (* A277599 *)
%t p[10,6]/2 (* A277600 *)
%t p[10,8]/2 (* A277601 *)
%Y Cf. A277593, A277597-A277600.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Nov 12 2016
|
