A332241 Indices of A224078(n) in A025487.

2, 4, 6, 13, 17, 27, 55, 67, 138, 264, 314, 406, 582, 1046, 1835, 3609, 16371, 75611, 118893, 342363

Offset: 1

Author

Michael De Vlieger, Feb 07 2020

Keywords

• nonn
• fini
• full

Comments

A224078: Superior highly composite numbers that are colossally abundant. Such numbers are also found in A025487.

Finite and full, since A224078 is finite with 20 terms.

Crossrefs

Cf. A002201, A004490, A025487, A224078.

Programs

Mathematica

Block[{s = TakeWhile[Import["https://oeis.org/A025487/b025487.txt", "Data"], Length@ # > 0 &][[All, -1]], t = Map[ToExpression[StringSplit[#][[1, -1]] ] &, Rest@ StringSplit[Import["https://oeis.org/A224078/b224078.txt", "Data"], "\n"]]}, Reap[Do[Which[Length@ t == 0, Break[], First[t] == s[[i]], t = Rest@ t; Sow[i]], {i, Length@ s}]][[-1, -1]]]