Original entry on oeis.org
13, 271, 28284463, 12610431355437389859745050577282818321295774208230808159, 421002806942919116087256468214897259565893934905313644799059599
Offset: 1
-
q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q-2],AppendTo[lst,f*q-2]];q=f,{n,6!}];lst
Select[#-2&/@(Times@@@Partition[Fibonacci[Range[3,300]],2,1]),PrimeQ] (* Harvey P. Dale, Aug 18 2011 *)
A163157
Primes of the form 1 + some Golden Rectangle Number.
Original entry on oeis.org
2, 3, 7, 41, 1871, 4599466948725481982057, 153554501132879618787551305057
Offset: 1
-
q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q+1],AppendTo[lst,f*q+1]];q=f, {n,3*6!}];lst
Select[Times@@@Partition[Fibonacci[Range[100]],2,1]+1,PrimeQ] (* Harvey P. Dale, May 15 2018 *)
-
for(k=1, 1000, if(isprime(p=fibonacci(k)*fibonacci(k+1)+1), print1(p, ","))) \\ Colin Barker, Apr 08 2016
A163156
Primes which are 3 less than some Golden Rectangle Number.
Original entry on oeis.org
3, 37, 101, 1867, 193864603, 2084036199823432507, 268428621074094202095020661268919214060276183552992107, 491408029979212079502411930639737155545416825790885412525976325862355865559627380323835985032165419224284422111
Offset: 1
-
q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q-3],AppendTo[lst,f*q-3]];q=f,{n,6!}];lst
Showing 1-3 of 3 results.
Comments