OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
f:= proc(n) local i; floor(parse(cat(seq(i, i=n+5 .. n, -1)))/6) end proc:
map(f, [$0..40]); # Robert Israel, Jan 11 2024
MATHEMATICA
fc[n_]:=Module[{c=Reverse[n]}, Floor[FromDigits[Flatten[IntegerDigits/@ c]]/ 6]]; fc/@Partition[Range[0, 30], 6, 1] (* Harvey P. Dale, Nov 09 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 01 2002
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 18 2003
STATUS
approved