|
%I
%S 1,1,0,0,1,0,1,0,1,1,2,2,3,4,5,8,12,16,25,36,53,79,117,173,258,387,
%T 581,875,1322,2000,3035,4612,7025,10716,16376,25064,38420,58977,90655,
%U 139528,215011,331714,512328,792120,1225952
%N Number of integers k such that floor((r^n)/k)=n, where r = golden ratio = (1+sqrt(5))/2.
%H Robert Israel, <a href="/A182613/b182613.txt">Table of n, a(n) for n = 1..4815</a>
%F a(n)=floor((r^n)/n)-floor((r^n)/(n+1)).
%p r:= (1+sqrt(5))/2:
%p f:= proc(n) local v;
%p v:= floor(r^n/n) - floor(r^n/(n+1));
%p while not v::integer do
%p Digits:= 2*Digits;
%p v:= floor(r^n/n) - floor(r^n/(n+1));
%p od;
%p v
%p end proc:
%p map(f, [$1..100]); # _Robert Israel_, Sep 04 2019
%Y Cf. A182614.
%K nonn
%O 1,11
%A _Clark Kimberling_, Nov 22 2010
|
