|
%I #13 Dec 28 2019 07:48:14
%S 6,21,99,120,249,354,375,435,600,609,675,720,804,819,906,915,1080,
%T 1215,1230,1359,1671,1740,1794,1995,2250,2349,2421,2430,2469,2625,
%U 2664,2754,2805,2826,2949,3090,3225,3291,3546,3879,4200,4506,4761,4896,5241,5271
%N Values of k arising in A160518: numbers k such that (2*k^3 - 1, 2*k^3 + 1) are twin primes.
%H Amiram Eldar, <a href="/A151612/b151612.txt">Table of n, a(n) for n = 1..10000</a>
%F {n: 2*n^3-1 in A001359}. - _R. J. Mathar_, May 29 2009
%e 6 is a term since 2 * 6^3 = 432 and 431 and 433 are twin primes.
%p isA001359 := proc(n) RETURN(isprime(n) and isprime(n+2)) ; end: for n from 1 to 8000 do twon3 := 2*n^3 ; if isA001359(twon3-1) then printf("%d,",n) ; fi; od: # _R. J. Mathar_, May 29 2009
%t Select[3*Range[2000], And @@ PrimeQ[2*#^3 + {-1, 1}] &] (* _Amiram Eldar_, Dec 28 2019 *)
%Y Cf. A001359, A160518.
%K nonn
%O 1,1
%A Howard Berman (howard_berman(AT)hotmail.com), May 16 2009
%E More terms from _R. J. Mathar_, May 29 2009
|
