login
a(n) = (1/2)*A277589(n).
5

%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