OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
MATHEMATICA
z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
p[b_, d_] := Flatten[Position[a[b], d]]
p[10, 2]/2 (* A277597 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Nov 12 2016
STATUS
approved