cp's OEIS Frontend

A337147 Primes abs(A337145(k))/8 for k in A337146.

%I A337147 #10 Jan 27 2021 22:37:17
%S A337147 13,3529,35801,38447,36299,29399,30757,29389,109211,101141,82037,
%T A337147 119737,203227,203381,237143,439753,197677,329533,391337,611449,
%U A337147 697757,1082233,840347,1054213,1154893,1044343,1249139,962587,990287,1012861,1051181,1060051,753847,1182737,889237,605333,769997
%N A337147 Primes abs(A337145(k))/8 for k in A337146.
%H A337147 Robert Israel, <a href="/A337147/b337147.txt">Table of n, a(n) for n = 1..10000</a>
%e A337147 A337146(3) = 41 with A337145(41) = det(1097, 883; 877, 967) = 286408 = 8*35801 so a(3) = 35801.
%p A337147 R:= NULL:
%p A337147 count:= 0:
%p A337147 L:= [-7, -5, -3, -1]:
%p A337147 for k from 1 while count < 100 do
%p A337147   for i from 1 to 4 do
%p A337147    for x from L[i]+8 by 8 do until isprime(x);
%p A337147    L[i]:= x;
%p A337147   od;
%p A337147   v:= abs(L[1]*L[4]-L[2]*L[3])/8;
%p A337147   if isprime(v) then count:= count+1; R:= R, v; fi
%p A337147 od:
%p A337147 R;
%Y A337147 Cf. A336738, A337145, A337146.
%K A337147 nonn
%O A337147 1,1
%A A337147 _J. M. Bergot_ and _Robert Israel_, Jan 27 2021