%I #5 Jul 16 2022 01:32:48
%S 2,5,11,13,43,47,59,71,79,97,101,103,137,149,251,263,349,359,383,409,
%T 421,433,467,523,569,659,743,853,859,863,907,919,937,983,1069,1087,
%U 1091,1093,1223,1229,1259,1279,1483,1499,1583,1637,1663,1667,1697,1709,1777
%N Primes p such that A355655(i) = 1, where i is the index of p in A000040.
%o (PARI) isp(n) = for(b=2, oo, if(Mod(b, n^2)^(n-1)==1, return(ispseudoprime(b))))
%o forprime(p=1, 200, if(isp(p), print1(p, ", ")))
%Y Cf. A000040, A355655, A355656.
%K nonn
%O 1,1
%A _Felix Fröhlich_, Jul 12 2022