cp's OEIS Frontend

A146316 Prime subtrahends of nearest squares producing prime differences.

%I A146316 #5 Jul 22 2025 06:14:36
%S A146316 2,2,5,3,2,7,5,2,11,5,3,2,17,11,3,17,13,7,5,2,23,17,5,3,2,29,23,17,5,
%T A146316 31,17,13,11,7,2,17,11,3,2,41,23,17,5,29,19,13,7,5,29,23,17,3,2,41,23,
%U A146316 11,2,47,43,41,37,23,19,17,13,53,47,41,11,5,3,2,59,53,47,5,3,2,67,59,47,37
%N A146316 Prime subtrahends of nearest squares producing prime differences.
%C A146316 Terms in A146315 + A146316 produce a square
%e A146316 a(6)=7 because when the prime 29 is subtracted from the square 36, the result is another prime, 7
%o A146316 (UBASIC) 10 'sq less pr are prime 20 N=1:O=1:C=1 30 A=3:S=sqrt(N) 40 B=N\A 50 if B*A=N then 120 60 A=A+2 70 if A<=S then 40 80 R=O^2:Q=R-N 90 if N<R and N=prmdiv(N) and Q=prmdiv(Q) then print R;N;Q:N=N+2:C=C+1:goto 30 100 if C>31 then stop 120 N=N+2:if N<R then 30:else O=O+1:goto 80
%Y A146316 A146315 A146317 A146318
%K A146316 easy,nonn
%O A146316 1,1
%A A146316 _Enoch Haga_, Oct 30 2008