login
A032564
Quotient of 'base-16' division described in A032563.
1
1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 6, 6, 10, 10, 10, 10, 10, 10, 10, 10, 16, 16, 16, 16, 16, 16, 16, 16, 25, 22, 25, 25, 25, 40, 37, 35, 41, 40, 40, 40, 41, 42, 66, 64, 61, 56, 64, 65, 64, 67, 65, 64, 68, 67
OFFSET
1,10
MAPLE
d:= Vector(10^7, 1):
for i from 1 to 7 do
inds:= 10^i*[$1..10^(7-i)];
d[inds]:= (2*16^i+3)/5;
od:
b:= Vector(10^7):
b[1]:= 1:
for i from 2 to 10^7 do
b[i]:= b[i-1]+d[i]
od: map(t-> if type(b[t]/ t, integer) then b[t]/t fi, [$1..10^7]); # Robert Israel, Aug 30 2015
CROSSREFS
See A032563 for explanation.
Sequence in context: A123932 A010709 A138908 * A141248 A273339 A088899
KEYWORD
nonn
AUTHOR
Patrick De Geest, Apr 15 1998
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Oct 02 2000
STATUS
approved