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.

A083262 a(n) = sigma(A046523(n)), sum of divisors of the least number with the same prime signature as n.

This page as a plain text file.
%I A083262 #14 May 20 2017 22:44:28
%S A083262 1,3,3,7,3,12,3,15,7,12,3,28,3,12,12,31,3,28,3,28,12,12,3,60,7,12,15,
%T A083262 28,3,72,3,63,12,12,12,91,3,12,12,60,3,72,3,28,28,12,3,124,7,28,12,28,
%U A083262 3,60,12,60,12,12,3,168,3,12,28,127,12,72,3,28,12,72,3,195,3,12,28,28,12,72
%N A083262 a(n) = sigma(A046523(n)), sum of divisors of the least number with the same prime signature as n.
%H A083262 Antti Karttunen, <a href="/A083262/b083262.txt">Table of n, a(n) for n = 1..10000</a>
%t A083262 Table[DivisorSigma[1, Times @@ MapIndexed[Prime[First@ #2]^#1 &, Sort[FactorInteger[n][[All, -1]], Greater]] - Boole[n == 1]], {n, 78}] (* _Michael De Vlieger_, May 20 2017 *)
%o A083262 (PARI)
%o A083262 A046523(n) = my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]) \\ This function from _Charles R Greathouse IV_, Aug 17 2011
%o A083262 A083262(n) = sigma(A046523(n)); \\ _Antti Karttunen_, May 19 2017
%Y A083262 Cf. A000203, A046523, A276528, A286360.
%K A083262 nonn
%O A083262 1,2
%A A083262 _Labos Elemer_, May 09 2003
%E A083262 Name clarified by _Antti Karttunen_, May 19 2017