|
%I #11 Mar 18 2022 15:29:25
%S 2,3,6,14,27,30,35,37,44,55,101,106,118,127,137,140,154,172,184,233,
%T 248,256,260,289,383,389,425,461,463,485,500,503,513,552,584,610,617,
%U 630,642,696,706,714,737,746,819,884,926,952,964,978,1004,1008,1019,1027
%N Numbers k such that ((prime(k)*prime(k+1))^2 + 1)/2 is prime.
%C Resulting primes are in A087294.
%H Harvey P. Dale, <a href="/A087293/b087293.txt">Table of n, a(n) for n = 1..1000</a>
%e 2 is in the sequence because ((prime(2)*prime(3))^2 + 1)/2 = ((3*5)^2 + 1)/2 = 113 is prime.
%t Select[Range[1100],PrimeQ[((Prime[#]Prime[#+1])^2+1)/2]&] (* _Harvey P. Dale_, Mar 18 2022 *)
%Y Cf. A086893, A087294.
%K nonn
%O 1,1
%A _Ray Chandler_, Aug 31 2003
%E Offset changed to 1 by _Jinyuan Wang_, Aug 06 2021
|
