%I #18 Jul 24 2021 08:36:15
%S 1,2,3,9,16,33,40073,40078,40082,40083,40122,251721,251722,251734,
%T 251736,4124584,10553433,10553439,10553444,10553454,10553478,10553552,
%U 10553553,10553818,27067098,27067524,179992912,465769814,465769832,465769839
%N Numbers k such that prime(k) == 5 (mod k).
%H Giovanni Resta, <a href="/A023147/b023147.txt">Table of n, a(n) for n = 1..68</a>
%t p = 1; Do[ If[ Mod[p = NextPrime[p], n] == 5, Print[n]], {n, 1, 10^9}] (* _Robert G. Wilson v_, Feb 18 2004 *)
%Y Cf. A171432, A092047, A023143, A023144, A023145, A023146, A023148, A023149, A023150, A023151, A023152.
%K nonn
%O 1,2
%A _David W. Wilson_
%E More terms from _Robert G. Wilson v_, Feb 18 2004
%E a(24)-a(27) from _Robert G. Wilson v_, Feb 18 2004
%E Three missing initial terms at start of sequence inserted by _Zak Seidov_, Feb 05 2009