%I #38 Feb 23 2020 08:42:38
%S 2,3,11,13,37,43,1087,64591,64601,64661,1304707,3523969,3524249,
%T 9558541,189963073,189963091,189963847,189968887,189969319,189969337,
%U 1394194181,1394194481,1394194561,1394197381,1394199221,1394199241,3779851321,3779851363,3779856571,10246935931,10246936019,10246936481,75370121689,75370121857,75370122409,75370125409,75370126441
%N Primes that are congruent to 1 mod n, where n is the index of the prime.
%C Based on problem by _G. L. Honaker, Jr._
%C A subsequence of A073465. - _Ivan N. Ianakiev_, Aug 06 2019
%H Giovanni Resta, <a href="/A048891/b048891.txt">Table of n, a(n) for n = 1..94</a>
%F A087611(a(n)) = 0. - _Reinhard Zumkeller_, Sep 11 2003
%F a(n) = A000040(A023143(n)). - _Zak Seidov_, Feb 19 2015
%e 13 is the 6th prime and 13 == 1 mod 6.
%t f[p_,n_]:=Mod[p,n]==0; lst={};Do[p=Prime[n];If[f[p-1,n],AppendTo[lst,p]],{n,10!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Dec 08 2009 *)
%o (PARI) lista(nn) = forprime(p=1, nn, if (Mod(p, primepi(p)) == 1, print1(p, ", "))); \\ _Michel Marcus_, Jan 08 2015; Aug 06 2019
%Y Cf. A000040, A023143, A045924, A052013.
%K nonn
%O 1,1
%A _Jud McCranie_
%E More terms from _Zak Seidov_, Feb 19 2015
%E Terms a(33)-a(37) sorted into correct order by _Giovanni Resta_, Feb 23 2020
|