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, 1, 3, 4, 9, 19, 24, 49, 99

Offset: 1

Author

Ross La Haye, Jun 13 2010

Keywords

• nonn
• fini
• full
• easy

Crossrefs

Cf. A018283.

Programs

Mathematica

Map[(100/# - 1)&, Sort[Divisors[100], Greater]]
Map[(#-1)&,Divisors[100]]  (* Ross La Haye, Jun 17 2010 *)
100/Reverse[Divisors[100]]-1 (* Harvey P. Dale, Jan 14 2015 *)

Formula

a(n) = 100/A018283(10-n) - 1.

a(n) = A018283(n) - 1. - Ross La Haye, Jun 17 2010