A032564 Quotient of 'base-16' division described in A032563.

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

Author

Patrick De Geest, Apr 15 1998

Keywords

• nonn

Crossrefs

See A032563 for explanation.

Programs

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

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Oct 02 2000