A334276 a(n) = prime(A003593(n)).

2, 5, 11, 23, 47, 97, 103, 197, 379, 419, 691, 761, 1427, 1543, 2557, 2789, 4637, 5039, 5519, 9049, 9851, 16103, 17609, 19289, 28687, 31319, 34123, 55381, 60167, 65687, 97499, 106243, 115757, 171529, 186437, 202987, 220861, 326537, 354979, 386501, 570643, 620201, 674837

Offset: 1

Author

Yancheng Lu, May 20 2020

Keywords

• nonn

Comments

The first six terms agree with A055496.

Crossrefs

Cf. A003593, A055496.

Programs

Mathematica

fQ[n_]:=PowerMod[15,n,n]==0;
Prime[Select[Range[1000000],fQ]]