|
%I #15 Jul 08 2024 11:13:10
%S 3,17,37,107,151,269,337,499,809,1327,1637,1801,2749,4967,7823,10501,
%T 12641,22643,31859,32569,38609,54049,57829,62743,68899,72089,93937,
%U 97651,121447,124249,143257,146299,157207,166861,176809,185327,187049
%N Primes of the form prime(n)^2 - prime(n+1) - 1.
%H Vincenzo Librandi, <a href="/A097938/b097938.txt">Table of n, a(n) for n = 1..1000</a>
%e a(4)=107 because 11^2 - 13 -1=107.
%t Select[Table[(Prime[n]^2-Prime[n+1])-1,{n,700}],PrimeQ[#]&] (* _Vincenzo Librandi_, Jul 17 2012 *)
%t Select[#[[1]]^2-#[[2]]-1&/@Partition[Prime[Range[100]],2,1],PrimeQ] (* _Harvey P. Dale_, Jul 07 2024 *)
%o (PARI) m=85;for(n=1,m,if(isprime(k=prime(n)^2-prime(n+1)-1),print1(k,","))) \\ _Klaus Brockhaus_, Sep 06 2004
%K nonn,easy
%O 1,1
%A _Giovanni Teofilatto_, Sep 05 2004
%E More terms from _Klaus Brockhaus_, Sep 06 2004
|
