%I #12 Jun 13 2022 07:35:37
%S 2,3,5,29,53,73,97,101,149,173,193,197,241,269,293,313,317,337,389,
%T 409,433,457,461,509,557,577,601,653,673,677,701,769,773,797,821,937,
%U 941,1009,1013,1033,1061,1109,1129,1153,1181,1201,1229,1249,1277,1297,1301
%N Primes p such that p mod 6 = p mod 8.
%C Corresponding moduli: 2, 3, 5, 5, 5, 1, 1, 5, 5, 5, 1, 5, 1, 5, 5, 1, 5, 1, 5, 1, 1, 1, 5, 5, 5, 1, 1, 5, 1, 5, 5, 1, 5, 5, 5, 1, 5, 1, 5, 1, 5, 5, 1, 1, 5, 1.
%C After 3 - only ones and fives.
%t s = {}; p = 2; Do[If[Mod[p, 6] == Mod[p, 8], AppendTo[s, p]]; p = NextPrime[p], {200}]; s
%K nonn
%O 1,1
%A _Zak Seidov_, Jun 05 2022