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.

A082295 Numbers having more than two square divisors > 1.

This page as a plain text file.
%I A082295 #19 Sep 25 2022 04:57:10
%S A082295 36,64,72,100,108,128,144,180,192,196,200,216,225,252,256,288,300,320,
%T A082295 324,360,384,392,396,400,432,441,448,450,468,484,500,504,512,540,576,
%U A082295 588,600,612,640,648,675,676,684,700,704,720,729,756,768,784,792,800
%N A082295 Numbers having more than two square divisors > 1.
%C A082295 If n is in the sequence, so is m*n. - _Charles R Greathouse IV_, Oct 16 2015
%C A082295 The asymptotic density of this sequence is 1 - (6/Pi^2) * (1 + Sum_{p prime} (1/p^2 + 1/(p^3*(p+1)) + 1/(p^4*(p+1)))) = 0.07033321843992718294... . - _Amiram Eldar_, Sep 25 2022
%H A082295 Amiram Eldar, <a href="/A082295/b082295.txt">Table of n, a(n) for n = 1..10000</a>
%F A082295 A046951(a(n)) > 3.
%F A082295 a(n) < 17n for n > 25. - _Charles R Greathouse IV_, Oct 16 2015
%e A082295 n=200 has 4 square divisors: 1, 4, 25 and 100, therefore 200 is a term.
%t A082295 Select[Range[1000],Length[Rest[Select[ Divisors[#], IntegerQ[ Sqrt[ #]]&]]]> 2&] (* _Harvey P. Dale_, Jan 08 2014 *)
%o A082295 (PARI) is(n)=my(f=vecsort(factor(n)[,2],,4)); #f && (f[1]>5 || (#f>1 && f[2]>1)) \\ _Charles R Greathouse IV_, Oct 16 2015
%Y A082295 Cf. A082294, A048111, A046951.
%K A082295 nonn
%O A082295 1,1
%A A082295 _Reinhard Zumkeller_, Apr 08 2003