%I #9 Mar 11 2014 23:23:01
%S 3,7,19,47,59,103,139,227,307,367,467,503,619,839,887,1039,1319,1567,
%T 1699,1907,1979,2203,2687,3407,4003,4759,4987,5827,6079,6599,7703,
%U 8287,9203,9679,10499,10667,11527,12239,13159,14503,16747,17387,19379,22447
%N Primes p such that 6p + 7 is a square.
%F a(n) = (A110015(n) - 7)/6.
%t Select[Prime[Range[3000]],IntegerQ[Sqrt[6#+7]]&] (* _Harvey P. Dale_, Dec 08 2010 *)
%Y Cf. A110015, A110016.
%K easy,nonn
%O 1,1
%A _Giovanni Teofilatto_, Sep 03 2005
%E Corrected and extended by _Ray Chandler_, Sep 04 2005
|