%I #15 Jun 21 2019 14:31:05
%S 60,84,90,104,132,160,176,186,208,228,240,260,282,304,308,336,342,354,
%T 368,378,400,416,426,438,450,464,474,498,522,546,570,576,594,618,642,
%U 654,666,696,720,728,740,762,786,804,812,820,834,852,860,882,900,910,918
%N Abundant numbers with abundant subscripts.
%C The abundant-index-of-abundant numbers, or "meta-abundant" numbers.
%C Subset of A005101.
%H Amiram Eldar, <a href="/A217740/b217740.txt">Table of n, a(n) for n = 1..10000</a>
%e The first abundant number is 12, so the first meta-abundant number is the 12th abundant number; A005101(A005101(1))=A005101(12)=60.
%t abQ[n_] := DivisorSigma[1, n] > 2 n; s = {}; c = 0; Do[If[abQ[n], c++; If[abQ[c], AppendTo[s, n]]], {n, 1, 1000}]; s (* _Amiram Eldar_, Jun 21 2019 *)
%Y Cf. A005101 (abundant numbers).
%Y Cf. A006450 (primes with prime subscripts).
%K nonn
%O 1,1
%A _Kevin L. Schwartz_ and _Christian N. K. Anderson_, Mar 23 2013
|