%I #24 Nov 11 2020 11:58:19
%S 61,449,661,1987,7583,7817,8431,8779,9677,11003,11311,13033,18311,
%T 28411,44449,46327,72901,79153,89599,100403,101581,127423,148861,
%U 169789,207511,214657,287503,308303,333493,326251,365941,438887,461191,478679,503389,515923,563723,574127,613747,635639,673487
%N Prime terms of A338820.
%C Terms are in the order in which they occur in A338820, which is not numerical order: e.g. a(29) = 333493 > a(30) = 326251.
%H Robert Israel, <a href="/A338102/b338102.txt">Table of n, a(n) for n = 1..3700</a>
%F a(n) = A338820(PrimePi(A338821(n))).
%e a(3) = 661 is the third prime term in A338820. This is A338820(21) where prime(21) = 73 = A338821(3).
%p N:= 1000: # for terms in A338820(1)..A338820(N)
%p P:= [seq(ithprime(i), i=1..N)]:
%p R:= NULL:
%p for n from 1 to N do
%p v:= add(P[i]^2 mod P[n], i=1..n-1);
%p if isprime(v) then R:= R, v fi
%p od:
%p R;
%Y Cf. A338820, A338821.
%K nonn
%O 1,1
%A _J. M. Bergot_ and _Robert Israel_, Nov 10 2020
|