cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A332241 Indices of A224078(n) in A025487.

This page as a plain text file.
%I A332241 #6 Feb 08 2020 20:44:02
%S A332241 2,4,6,13,17,27,55,67,138,264,314,406,582,1046,1835,3609,16371,75611,
%T A332241 118893,342363
%N A332241 Indices of A224078(n) in A025487.
%C A332241 A224078: Superior highly composite numbers that are colossally abundant. Such numbers are also found in A025487.
%C A332241 Finite and full, since A224078 is finite with 20 terms.
%t A332241 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]]]
%Y A332241 Cf. A002201, A004490, A025487, A224078.
%K A332241 nonn,fini,full
%O A332241 1,1
%A A332241 _Michael De Vlieger_, Feb 07 2020