|
|
A190469
|
|
Numbers with prime factorization p^2*q^2*r^6 where p, q, and r are distinct primes.
|
|
3
|
|
|
14400, 28224, 69696, 72900, 78400, 97344, 142884, 166464, 193600, 207936, 270400, 304704, 352836, 379456, 462400, 484416, 492804, 529984, 553536, 562500, 577600, 788544, 842724, 846400, 893025, 906304, 968256, 1052676, 1065024, 1132096
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
Sum_{n>=1} 1/a(n) = P(2)^2*P(6)/2 - P(2)*P(8)/2 - P(4)*P(6)/2 - P(2)*P(8) + P(10) = 0.00024535673248061231753..., where P is the prime zeta function. - Amiram Eldar, Mar 07 2024
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={2, 2, 6}; Select[Range[1600000], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\36)^(1/6), t1=p^6; forprime(q=2, sqrt(lim\t1), if(p==q, next); t2=t1*q^2; forprime(r=q+1, sqrt(lim\t2), if(p==r, next); listput(v, t2*r^2)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 20 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|