1,3
ZL := []; for p to 1000000 do if `and`(isprime(p), isprime(p+2)) then ZL := [op(ZL), ((p+2)^2-p^2)*(1/8)] end if end do; a := [seq((ZL[i+1]-ZL[i])*(1/3), i = 2 .. nops(ZL)-1)]
A040040
Sequence in context: A153725 A102247 A054249 this_sequence A141822 A033099 A018892
Adjacent sequences: A160270 A160271 A160272 this_sequence A160274 A160275 A160276
hard,nonn
Stephen Crowley (crow(AT)crowlogic.net), May 07 2009
Search completed in 0.002 seconds