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.

A063975 Smallest numbers such that the number of terms in inverse set usigma equals n; where usigma = A034448.

This page as a plain text file.
%I A063975 #13 Aug 12 2017 00:18:29
%S A063975 1,12,24,60,120,72,216,288,1320,480,240,840,1296,2700,960,1512,1080,
%T A063975 720,1728,2016,3840,3240,3456,2520,3360,3024,1440,3600,6912,2160,
%U A063975 19152,2880,7920,13680,9072,12600,6048,5040,18000,6480,27216,13440,7200,27648,5760
%N A063975 Smallest numbers such that the number of terms in inverse set usigma equals n; where usigma = A034448.
%H A063975 Donovan Johnson, <a href="/A063975/b063975.txt">Table of n, a(n) for n = 1..3000</a>
%e A063975 usigma(x) = 288, invusigma(288) = {138, 154, 165, 168, 213, 235, 248, 253}, so a(288) = 8, the number of all terms in the inverse set and all similar numbers are larger: {288, 648, 672, 900}.
%p A063975 with(numtheory): A034448 := proc(n) option remember: local ans,i: ans:=1: for i from 1 to nops(ifactors(n)[2]) do ans := ans*(1+ifactors(n)[ 2 ][ i ][ 1 ]^ifactors(n)[ 2 ] [ i ] [ 2 ]): od: return ans: end: for n from 1 to 5000 do m:=A034448(n): if(type(ct[m],integer))then ct[m]:=ct[m]+1: else ct[m]:=1: fi:od: for m from 1 to 28 do for n from 1 to 5000 do if(ct[n]=m)then printf("%d, ",n):break: fi: od:od: # _Nathaniel Johnston_, Apr 29 2011
%Y A063975 Cf. A034444, A034448, A051444, A054973, A057637.
%K A063975 nonn
%O A063975 1,2
%A A063975 _Labos Elemer_, Sep 05 2001
%E A063975 a(9) - a(45) from _Nathaniel Johnston_, Apr 29 2011