cp's OEIS Frontend

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

%I A032564 #11 Oct 06 2019 20:25:24
%S A032564 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,
%T A032564 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,
%U A032564 25,25,25,40,37,35,41,40,40,40,41,42,66,64,61,56,64,65,64,67,65,64,68,67
%N A032564 Quotient of 'base-16' division described in A032563.
%p A032564 d:= Vector(10^7, 1):
%p A032564 for i from 1 to 7 do
%p A032564    inds:= 10^i*[$1..10^(7-i)];
%p A032564    d[inds]:= (2*16^i+3)/5;
%p A032564 od:
%p A032564 b:= Vector(10^7):
%p A032564 b[1]:= 1:
%p A032564 for i from 2 to 10^7 do
%p A032564   b[i]:= b[i-1]+d[i]
%p A032564 od: map(t-> if type(b[t]/ t,integer) then b[t]/t fi, [$1..10^7]); # _Robert Israel_, Aug 30 2015
%Y A032564 See A032563 for explanation.
%K A032564 nonn
%O A032564 1,10
%A A032564 _Patrick De Geest_, Apr 15 1998
%E A032564 More terms from Larry Reeves (larryr(AT)acm.org), Oct 02 2000