A261991 Indices of abundant repunits: numbers n such that sigma((10^n-1)/9) > 2*(10^n-1)/9.
18, 36, 48, 54, 60, 72, 84, 90, 96, 108, 120, 126, 132, 144, 162, 168, 180, 192, 198, 210, 216, 234, 240, 252, 264, 270, 288, 300, 306, 324, 330, 336, 342, 360, 378, 384, 390, 396, 414, 420, 432, 450, 462, 468, 480, 486, 504, 522, 528, 540, 546, 558, 576, 588
Offset: 1
Keywords
Examples
a(1)=18 since (10^18-1)/9 is abundant (abundancy ~ 2.09).
Links
- Hiroaki Yamanouchi, Table of n, a(n) for n = 1..92
Programs
-
Mathematica
Select[Range@ 60, DivisorSigma[1, (10^# - 1)/9] > 2 (10^# - 1)/9 &] (* Michael De Vlieger, Sep 08 2015 *)
-
PARI
is(n)=sigma(10^n\9,-1)>2 \\ Charles R Greathouse IV, Sep 07 2015
Extensions
a(27)-a(54) from Hiroaki Yamanouchi, Oct 13 2015
Comments