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.

A300911 a(n) is the smallest positive integer k such that psi(x) = k has exactly n solutions, where psi(x) = A001615(x).

This page as a plain text file.
%I A300911 #14 Mar 20 2018 00:25:28
%S A300911 2,1,6,84,12,24,48,168,96,72,192,144,384,672,360,960,432,288,3648,
%T A300911 1080,3600,720,2736,1008,576,864,11664,6720,7680,1152,7920,6336,2016,
%U A300911 1440,3024,1728,2160,14256,5040,2592,2304,13440,9072,10800,43008,26208,24480,4608,2880,10944,6480
%N A300911 a(n) is the smallest positive integer k such that psi(x) = k has exactly n solutions, where psi(x) = A001615(x).
%e A300911 a(3) = 84 because psi(2^2*13) = psi(5*13) = psi(83) = 84 and 84 is the least number with this property.
%t A300911 psi[n_] := If[n == 1, 1, n Times @@ (1 + 1/First /@ FactorInteger@n)]; t = Sort[Reverse /@ Tally[Array[psi, 50000]]]; L = {2}; Do[ If[t[[j, 1]] == Length@ L, AppendTo[L, t[[j, 2]]]], {j, Length@t}]; L (* _Giovanni Resta_, Mar 16 2018 *)
%o A300911 (PARI) {my(N=5*10^4, c=vectorsmall(N), i); A300911=List(); for(n=1,N,(i=A001615(n))>N||c[i]++); for(n=1,oo, for(i=1,N, c[i]==n && listput(A300911,i) && next(2)); break)} \\ _M. F. Hasler_, Mar 18 2018
%Y A300911 Cf. A001615, A007368, A007374.
%K A300911 nonn
%O A300911 0,1
%A A300911 _Altug Alkan_, Mar 15 2018