%I #5 Jan 09 2024 12:14:19
%S 1,2,1,3,9,2,8,11,23,23,5,9,15,19,17,31,31,41,41,55,2,14,16,16,31,49,
%T 54,52,61,59,109,111,107,117,121,164,166,169,171,181,11,23,41,35,29,
%U 29,77,71,77,71,89,83,95,107,113,125,155,149,167,173,185,185,203,197,203,209
%N a[n]=Mod[q(n),PrimePi[q(n)]]=Mod[A001359(n), A000720(A001359(n))] where q(n) is the n-th lesser-twin-prime. A004648 restricted to lesser twins.
%C Sequence display diagram similar to that of A004648.
%e n=9: p(26)=101 is the 9th lesser-twin-prime,
%e a(9)-Mod[p(26),26]=Mod[101,26]=23=a(9).
%Y Cf. A001359, A004648.
%K nonn
%O 1,2
%A _Labos Elemer_, Nov 04 2004