|
A178784
|
|
Let d be the vector of divisors of 100 sorted from largest to smallest, i.e., [100,50,25,20,10,5,4,2,1]. Then a(n) = 100/d(n) - 1.
|
|
0
|
|
|
%I
%S 0,1,3,4,9,19,24,49,99
%N Let d be the vector of divisors of 100 sorted from largest to smallest, i.e., [100,50,25,20,10,5,4,2,1]. Then a(n) = 100/d(n) - 1.
%F a(n) = 100/A018283(10-n) - 1.
%F a(n) also equals A018283(n) - 1. - _Ross La Haye_, Jun 17 2010]
%t Map[(100/# - 1)&, Sort[Divisors[100], Greater]]
%t Map[(#-1)&,Divisors[100]] (* _Ross La Haye_, Jun 17 2010 *)
%t 100/Reverse[Divisors[100]]-1 (* _Harvey P. Dale_, Jan 14 2015 *)
%Y Cf. A018283.
%K nonn,fini,full,easy
%O 1,3
%A _Ross La Haye_, Jun 13 2010
|
