|
| |
|
|
A118671
|
|
Primitive elements of A096490.
|
|
0
|
|
|
|
60, 168, 252, 792, 924, 936, 2448, 2736, 6624, 6864, 6930, 9936, 12528, 18564, 20748, 23256, 24570, 26784, 28152, 31968, 35424, 37152, 40176, 40608, 40950, 58344, 65208, 87516, 91584, 94392, 96048, 101952, 102672, 105408, 106488, 113832, 115776, 122544, 135792
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Members of A096490 that are not divisible by any smaller member of that sequence.
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
Select[6*Range[23000], DivisorSigma[-2, #] > 3/2 && Max[DivisorSigma[-2, #/(FactorInteger[#][[;; , 1]])]] < 3/2 &] (* Amiram Eldar, Aug 16 2024 *)
|
|
|
PROG
|
(PARI) is(k) = {!(k % 6) && if(sigma(k, -2) < 3/2, return(0)); fordiv(k, d, if(d < k && sigma(d, -2) >= 3/2, return(0))); 1; } \\ Amiram Eldar, Aug 16 2024
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,changed
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
