A163155 -id:A163155 - cp's OEIS frontend

A163157 Primes of the form 1 + some Golden Rectangle Number.

2, 3, 7, 41, 1871, 4599466948725481982057, 153554501132879618787551305057

Offset: 1

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

nonn

Primes of the form 1+A001654(k) for some k, as actually generated by k=1, 2, 3, 5, 9, 53, 71,....
Also primes of the form Fibonacci(k)*Fibonacci(k+1)+1. - Colin Barker, Apr 08 2016
The next term (a(8)) has 1995 digits. - Harvey P. Dale, May 15 2018

Cf. A001654, A000045, A163154, A163155, A163156.

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

Slightly edited by R. J. Mathar, Jul 25 2009

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

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

nonn

Primes of the form A001654(k)-3 for any k (actually k= 3, 5, 6, 9, 21, 45, 129, 266, 329, 330, 366, 429, 549, 570, 725, 882, 945,...)

Cf. A001654, A163154, A163155

q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q-3],AppendTo[lst,f*q-3]];q=f,{n,6!}];lst

cp's OEIS Frontend

A163157 Primes of the form 1 + some Golden Rectangle Number.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

PARI

Extensions