A118671 Primitive elements of A096490.

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

Offset

1,1

Comments

Members of A096490 that are not divisible by any smaller member of that sequence.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A096490.

Sequence in context: A044773 A256633 A329521 * A109379 A001034 A330583

Adjacent sequences: A118668 A118669 A118670 * A118672 A118673 A118674

Keyword

nonn

Author

Franklin T. Adams-Watters, May 19 2006

Extensions

Data corrected and extended by Amiram Eldar, Aug 16 2024

Status

approved