OFFSET
1,23
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local b; `+`(seq(numboccur(7, convert(n, base, b)), b=8..n+1)) end proc:
map(f, [$1..100]); # Robert Israel, Aug 20 2024
MATHEMATICA
f[n_] := Count[Flatten@ Table[ IntegerDigits[n, b], {b, 2, n + 1}], 7]; Array[f, 90] (* Robert G. Wilson v, Nov 14 2012 *)
CROSSREFS
KEYWORD
AUTHOR
STATUS
approved