# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a118671
Showing 1-1 of 1

%I A118671 #10 Aug 16 2024 12:46:21
%S A118671 60,168,252,792,924,936,2448,2736,6624,6864,6930,9936,12528,18564,
%T A118671 20748,23256,24570,26784,28152,31968,35424,37152,40176,40608,40950,
%U A118671 58344,65208,87516,91584,94392,96048,101952,102672,105408,106488,113832,115776,122544,135792
%N A118671 Primitive elements of A096490.
%C A118671 Members of A096490 that are not divisible by any smaller member of that sequence.
%H A118671 Amiram Eldar, <a href="/A118671/b118671.txt">Table of n, a(n) for n = 1..10000</a>
%t A118671 Select[6*Range[23000], DivisorSigma[-2, #] > 3/2 && Max[DivisorSigma[-2, #/(FactorInteger[#][[;; , 1]])]] < 3/2 &] (* _Amiram Eldar_, Aug 16 2024 *)
%o A118671 (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
%Y A118671 Cf. A096490.
%K A118671 nonn
%O A118671 1,1
%A A118671 _Franklin T. Adams-Watters_, May 19 2006
%E A118671 Data corrected and extended by _Amiram Eldar_, Aug 16 2024

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE