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.

Showing 1-3 of 3 results.

A256151 Triangular numbers n such that sigma(n) is a square number.

Original entry on oeis.org

1, 3, 66, 210, 820, 2346, 4278, 22578, 27966, 32131, 35511, 51681, 53956, 102378, 169653, 173755, 177906, 223446, 241860, 256686, 306153, 310866, 349866, 431056, 434778, 470935, 491536, 512578, 567645, 579426, 688551, 799480, 845650, 893116, 963966, 1031766, 1110795, 1200475, 1613706, 1719585
Offset: 1

Views

Author

Antonio Roldán, Mar 16 2015

Keywords

Comments

This sequence is the intersection of A000217 and A006532.
The corresponding triangular indices are in A116990. - Michel Marcus, Mar 17 2015

Examples

			3 is in the sequence because 3=2*3/2 is triangular, and sigma(3)=1+3=4=2^2 is square.
		

Crossrefs

Programs

  • Magma
    [n*(n+1) div 2: n in [1..2000] | IsSquare(SumOfDivisors(n*(n+1) div 2))]; // Vincenzo Librandi, Mar 17 2015
  • Mathematica
    Select[Accumulate[Range[0, 2000]], IntegerQ@Sqrt@DivisorSigma[1, #] &] (* Michael De Vlieger, Mar 17 2015 *)
  • PARI
    {for(i=1,2*10^3,n=i*(i+1)/2;if(issquare(sigma(n)),print1(n,", ")))}
    

A256152 Numbers k such that k is the product of two distinct primes and sigma(k) is a square number.

Original entry on oeis.org

22, 94, 115, 119, 214, 217, 265, 382, 497, 517, 527, 679, 745, 862, 889, 1174, 1177, 1207, 1219, 1393, 1465, 1501, 1649, 1687, 1915, 1942, 2101, 2159, 2201, 2359, 2899, 2902, 2995, 3007, 3143, 3383, 3401, 3427, 3937, 4039, 4054, 4097, 4315, 4529, 4537, 4702, 4741, 5029, 5065, 5398, 5587
Offset: 1

Views

Author

Antonio Roldán, Mar 16 2015

Keywords

Comments

This sequence is the intersection of A006881 and A006532.

Examples

			199 is in the sequence because 119=7*17 (the product of two distinct primes) and sigma(119)=8*18=144=12^2 (a square number).
		

Crossrefs

Programs

  • Haskell
    a256152 n = a256152_list !! (n-1)
    256152_list = filter f a006881_list where
       f x = a010052' ((spf + 1) * (x `div` spf + 1)) == 1
             where spf = a020639 x
    -- Reinhard Zumkeller, Apr 06 2015
  • Mathematica
    f[n_] := Block[{pf = FactorInteger@ n}, Max @@ Last /@ pf == 1 && Length@ pf == 2]; Select[Range@ 6000, IntegerQ@ Sqrt@ DivisorSigma[1, #] && f@ # &] (* Michael De Vlieger, Mar 17 2015 *)
  • PARI
    {for(i=1,10^4,if(omega(i)==2&&issquarefree(i)&&issquare(sigma(i)),print1(i,", ")))}
    

A256150 Oblong numbers n such that sigma(n) is a triangular number.

Original entry on oeis.org

2, 12, 56, 342, 992, 16256, 17822, 169332, 628056, 1189190, 2720850, 11085570, 35599122, 67100672, 1147210770, 1317435912, 1707135806, 7800334080, 11208986256, 13366943840, 17109032402, 17179738112, 46343540900, 58413331032, 83717924940, 204574837700, 274877382656, 445968192672, 589130699852
Offset: 1

Views

Author

Antonio Roldán, Mar 16 2015

Keywords

Comments

The numbers 12, 56, 992, 16256, 67100672, ... (A139256(n), twice even perfect numbers) are in the sequence because they are oblong (A139256(n) = 2^k*(2^k-1)) and sigma(A139256(n)) = sigma(2^k*(2^k-1)) = sigma(2^k)*sigma(2^k-1) = (2^(k+1)-1)*2^(k+1)/2 is a triangular number.
This sequence is the intersection of A002378 and A045746.

Examples

			2 is in the sequence because 2=1*2 is oblong, and sigma(2) = 1+2 = 3 = 2*3/2 is triangular.
		

Crossrefs

Programs

  • Mathematica
    Select[2 Accumulate[Range@10000], MemberQ[Accumulate[Range@10000], DivisorSigma[1, #]] &] (* Michael De Vlieger, Mar 17 2015 *)
  • PARI
    {for (i=1,i=10^6,n=i*(i+1);if(ispolygonal(sigma(n), 3),print(n)))}
Showing 1-3 of 3 results.