%I #39 May 25 2020 23:40:31
%S 2,5,11,23,47,97,103,197,379,419,691,761,1427,1543,2557,2789,4637,
%T 5039,5519,9049,9851,16103,17609,19289,28687,31319,34123,55381,60167,
%U 65687,97499,106243,115757,171529,186437,202987,220861,326537,354979,386501,570643,620201,674837
%N a(n) = prime(A003593(n)).
%C The first six terms agree with A055496.
%t fQ[n_]:=PowerMod[15,n,n]==0;
%t Prime[Select[Range[1000000],fQ]]
%Y Cf. A003593, A055496.
%K nonn
%O 1,1
%A _Yancheng Lu_, May 20 2020