login
a(n) = prime(A003593(n)).
0

%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