%I #3 Jul 03 2016 00:17:35

%S 3,5,41,47,53,59,61,127,137,149,157,163,173,179,193,197,199,211,349,

%T 373,409,433,439,499,509,727,743,761,773,809,821,827,863,887,911,929,

%U 941,947,953,971,977,983,997,1361,1381,1447,1451,1459,1471,1487,1489,1499

%N Prime subtrahends of nearest cubes producing prime differences

%C Terms in A146317 + A146318 produce a cube

%e a(3)=41 because when the prime 23 is subtracted from the cube 64, the result is another prime, 41

%o (UBASIC) 10 'cu less pr are prime 20 N=1:O=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^3:Q=R-N 90 if N<R and N=prmdiv(N) and Q=prmdiv(Q) then print R;N;Q:C=C+1:N=N+2:goto 30 100 if C=30 then stop 120 N=N+2:if N<R then 30:else O=O+1:goto 80

%Y A146315 A146316 A146317

%K easy,nonn

%O 1,1

%A _Enoch Haga_, Oct 30 2008