%I #11 Oct 26 2023 00:42:46
%S 1,2,4,8,16,23,32,37,46,64,74,79,92,107,128,148,149,158,163,184,191,
%T 214,233,256,296,298,316,317,326,331,359,368,373,382,401,428,443,457,
%U 466,499,512,529,541,569,592,596
%N Divisible only by primes congruent to 2 mod 7.
%H Vincenzo Librandi, <a href="/A004620/b004620.txt">Table of n, a(n) for n = 1..1000</a>
%t ok[1]=True;ok[n_]:=And@@(Mod[#,7]==2&)/@FactorInteger[n][[All,1]];Select[Range[6000],ok] (* _Vincenzo Librandi_, Aug 20 2012 *)
%o (Magma) [n: n in [1..1000] | forall{d: d in PrimeDivisors(n) | d mod 7 eq 2}]; // _Vincenzo Librandi_, Aug 20 2012
%K nonn,easy
%O 1,2
%A _N. J. A. Sloane_
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Aug 20 2012