%I #3 Mar 12 2014 16:36:52
%S 2,6,30,72,210,420,870,1260,2550,2862,4692,5550,8010,9120,9702,12882,
%T 14280,18090,19740,24180,30102,43890,46440,53130,67860,80940,89700,
%U 95172,102720,108570,163620,168510,170982,183612,194040,259590,265740
%N a(n) =(A001359[n]^2-1)/2
%C A sequence determined by the quadratic reciprocity power of twin primes:A001359.
%t f[n_] = If[Prime[n + 1] - Prime[n] - 2 == 0, Prime[n], {}] a = Flatten[Table[(f[n]^2 - 1)/4, {n, 1, 200}]]
%Y Cf. A001359.
%K nonn
%O 0,1
%A _Roger L. Bagula_, May 01 2006
|