|
|
A119315
|
|
Numbers with composite numbers as third divisors.
|
|
6
|
|
|
4, 8, 9, 16, 20, 25, 27, 28, 32, 40, 44, 49, 52, 56, 64, 68, 76, 80, 81, 88, 92, 99, 100, 104, 112, 116, 117, 121, 124, 125, 128, 136, 140, 148, 152, 153, 160, 164, 169, 171, 172, 176, 184, 188, 196, 200, 207, 208, 212, 220, 224, 232, 236, 243, 244, 248, 256, 260
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The numbers of terms not exceeding 10^k, for k = 1, 2, ..., are 3, 23, 221, 2194, 21895, 219307, 2193435, 21937419, 219396872, 2193979781, ... . Apparently, the asymptotic density of this sequence exists and equals 0.219... . - Amiram Eldar, Jul 02 2022
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[300], CompositeQ[Divisors[#][[3]]]&]//Quiet (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2021 *)
Select[Range[260], (f = FactorInteger[#])[[1, 2]] > 1 && (Length[f] == 1 || f[[1, 1]]^2 < f[[2, 1]]) &] (* Amiram Eldar, Jul 02 2022 *)
|
|
PROG
|
(PARI)
A355453(n) = ((n>1) && !isprime(n) && !isprime(divisors(n)[3]));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|