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

Search: id:a004624
Showing 1-1 of 1

%I A004624 #11 Oct 26 2023 00:44:22
%S A004624 1,13,41,83,97,139,167,169,181,223,251,293,307,349,419,433,461,503,
%T A004624 533,587,601,643,727,769,797,811,839,853,881,937,1021,1049,1063,1079,
%U A004624 1091,1217,1231,1259,1261,1301,1399,1427,1483,1511,1553,1567,1609,1637,1681
%N A004624 Divisible only by primes congruent to 6 mod 7.
%H A004624 Vincenzo Librandi, <a href="/A004624/b004624.txt">Table of n, a(n) for n = 1..1000</a>
%t A004624 ok[1]=True;ok[n_]:=And@@(Mod[#,7]==6&)/@FactorInteger[n][[All,1]];Select[Range[5000],ok] (* _Vincenzo Librandi_, Aug 20 2012 *)
%o A004624 (Magma) [n: n in [1..2000] | forall{d: d in PrimeDivisors(n) | d mod 7 eq 6}]; // _Vincenzo Librandi_, Aug 20 2012
%K A004624 nonn
%O A004624 1,2
%A A004624 _N. J. A. Sloane_
%E A004624 Offset changed from 0 to 1 by _Vincenzo Librandi_, Aug 20 2012

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