%I #13 Nov 27 2016 16:01:42
%S 1,6,10,11,16,21,26,31,36,41,46,51,56,60,61,66,71,76,81,86,91,96,100,
%T 101,106,110,111,116,121,126,131,136,141,146,151,156,160,161,166,171,
%U 176,181,186,191,196,201,206,210,211,216,221,226,231,236,241,246
%N a(n) = (1/2)*A277589(n).
%H Clark Kimberling, <a href="/A277597/b277597.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 *)
%Y Cf. A277589.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Nov 12 2016