|
%I #10 May 04 2022 07:25:47
%S 3,6,7,9,11,12,14,18,19,21,22,23,24,27,28,31,33,35,36,38,42,43,44,46,
%T 47,48,49,54,55,56,57,59,62,63,66,67,69,70,71,72,76,77,79,81,83,84,86,
%U 88,92,93,94,95,96,98,99,103,105,107,108,110,112,114,115,118,121,124
%N Numbers whose largest prime factor is of the form 4k+3.
%H Amiram Eldar, <a href="/A071822/b071822.txt">Table of n, a(n) for n = 1..10000</a>
%F Numbers k such that A006530(k) == 3 (mod 4).
%t Select[Range[125], Mod[FactorInteger[#][[-1,1]], 4] == 3 &] (* _Amiram Eldar_, May 04 2022 *)
%o (PARI) for(n=2,200,if((component(component(factor(n),1),omega(n))-3)%4==0,print1(n,",")))
%Y Cf. A004767, A006530, A071821.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Jun 07 2002
|
