login
A004617
Divisible only by primes congruent to 3 mod 5.
4
1, 3, 9, 13, 23, 27, 39, 43, 53, 69, 73, 81, 83, 103, 113, 117, 129, 159, 163, 169, 173, 193, 207, 219, 223, 233, 243, 249, 263, 283, 293, 299, 309, 313, 339, 351, 353, 373, 383, 387, 433, 443, 463, 477, 489, 503
OFFSET
1,2
LINKS
MATHEMATICA
ok[1] = True; ok[n_] := And@@ (Mod[#, 5] == 3&)/@ FactorInteger[n][[All, 1]]; Select[Range[2000], ok] (* Vincenzo Librandi, Aug 11 2012 *)
PROG
(Magma) [n: n in [1..510] | forall{d: d in PrimeDivisors(n) | d mod 5 eq 3}]; // Bruno Berselli, Aug 11 2012
CROSSREFS
Sequence in context: A197569 A118570 A212244 * A135370 A206802 A285900
KEYWORD
nonn
STATUS
approved