login
A094179
Numbers congruent to 3 mod 4 which are divisible only by primes congruent to 3 mod 4.
4
3, 7, 11, 19, 23, 27, 31, 43, 47, 59, 63, 67, 71, 79, 83, 99, 103, 107, 127, 131, 139, 147, 151, 163, 167, 171, 179, 191, 199, 207, 211, 223, 227, 231, 239, 243, 251, 263, 271, 279, 283, 307, 311, 331, 343, 347, 359, 363, 367, 379, 383, 387, 399, 419, 423, 431
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[3, 431, 4], Union[Mod[Transpose[FactorInteger[#]][[1]], 4]] == {3}&] (* Harvey P. Dale, Apr 28 2012 *)
PROG
(PARI) {forstep(n=3, 440, 4, fac=factor(n); if(vecmin(vector(matsize(fac)[1], j, fac[j, 1])%4)==3, print1(n, ", ")))} \\ Klaus Brockhaus, May 08 2004
(PARI) is(n)=if(n%4<3, return(0)); Set(factor(n)[, 1]%4)==[3] \\ Charles R Greathouse IV, Jan 20 2022
CROSSREFS
Intersection of A004614 and A004767; intersection of A004614 and A026424.
Cf. A094180.
Sequence in context: A160227 A134442 A359153 * A085760 A179481 A131426
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, May 06 2004
EXTENSIONS
More terms from Klaus Brockhaus, May 08 2004
STATUS
approved