%I #10 Aug 19 2015 15:07:05
%S 17,41,137,401,641,761,1697,3257,5657,8297,10337,21617,45281,51257,
%T 53681,62417,78017,85361,93497,136361,138041,140297,152441,160817,
%U 180161,189257,201281,203321,222857,232961,248537,251561,301601,315881,340121,478937
%N Primes of the form (p^2-2)/7, where p is also a prime number.
%H Vincenzo Librandi, <a href="/A165668/b165668.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = (A165667(n)^2-2)/7.
%e 17=(11^2-2)/7; 41=(17^2-2)/7; 137=(31^2-2)/7.
%t Select[(#^2-2)/7&/@Prime[Range[300]],PrimeQ] (* _Harvey P. Dale_, Nov 10 2009 *)
%o (PARI) lista(nn) = forprime(p=2, nn, q=(p^2-2)/7; if ((type(q)=="t_INT") && isprime(q), print1(q, ", "))); \\ _Michel Marcus_, Aug 19 2015
%Y Cf. A165666, A165667.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Sep 24 2009
%E Entries checked by _R. J. Mathar_ and _Charles R Greathouse IV_, Oct 12 2009
|