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.

A134889 a(n)=the largest sum of two nontrivial divisors of n, if any, whose product equals n; otherwise, a(n)=n.

This page as a plain text file.
%I A134889 #5 Sep 16 2015 13:35:07
%S A134889 1,2,3,4,5,5,7,6,6,7,11,8,13,9,8,10,17,11,19,12,10,13,23,14,10,15,12,
%T A134889 16,29,17,31,18,14,19,12,20,37,21,16,22,41,23,43,24,18,25,47,26,14,27,
%U A134889 20,28,53,29,16,30,22,31,59,32,61,33,24,34,18,35,67,36,26,37,71,38,73,39
%N A134889 a(n)=the largest sum of two nontrivial divisors of n, if any, whose product equals n; otherwise, a(n)=n.
%C A134889 A divisor of n other than 1 or n is called nontrivial.
%e A134889 There are two ways to write 12 as a product of two nontrivial divisors, i.e., 6*2 and 4*3. Since 8=6+2>4+3=7, we have a(12)=8.
%t A134889 Table[If[Length[Divisors[n]] > 2, Max[Table[Divisors[n][[j]] + n/Divisors[n][[j]], {j, 2, Length[Divisors[n]] - 1}]], n], {n, 1, 100}] (* _Stefan Steinerberger_, Feb 04 2008 *)
%K A134889 nonn,easy
%O A134889 1,2
%A A134889 _Joseph L. Pe_, Feb 01 2008
%E A134889 More terms from _Stefan Steinerberger_, Feb 04 2008