OFFSET
1,1
COMMENTS
All members of this sequence have digital root 8. - J. W. Helkenberg, Jul 24 2013
First bisection of A232878. - Gary Croft, Dec 05 2013
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
Author?, Title? (no longer exists)
FORMULA
a(n) = (A037072(n)-2)/2.
a(n) = A118593(n) - 2. - Zerinvary Lajos, Jul 31 2006
EXAMPLE
71 is a term as the smaller member of the twin prime pair (71,73) as 71+73 = 144 = 12^2.
MAPLE
isa := n -> isprime(n) and isprime(n+2) and issqr(2*n+2):
select(isa, [$4..1000000]); # Peter Luschny, Jan 05 2020
MATHEMATICA
First/@Select[Partition[Prime[Range[9*10^4]], 2, 1], Differences[#]=={2} && IntegerQ[Sqrt[Total[#]]] &] (* Jayanta Basu, May 26 2013 *)
PROG
(PARI) t(n, p=3) = {while( p+2 < (p=nextprime( p+1 )) || n-->0, ); p-2}
for(n=1, 1e4, if(issquare(2*t(n)+2), print1(t(n), ", "))); \\ Altug Alkan, Mar 14 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Mar 30 2002
EXTENSIONS
More terms from Sascha Kurz, Apr 01 2002
STATUS
approved