%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