|
|
A163156
|
|
Primes which are 3 less than some Golden Rectangle Number.
|
|
1
|
|
|
3, 37, 101, 1867, 193864603, 2084036199823432507, 268428621074094202095020661268919214060276183552992107, 491408029979212079502411930639737155545416825790885412525976325862355865559627380323835985032165419224284422111
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
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,...)
|
|
LINKS
|
|
|
MATHEMATICA
|
q=0; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[f*q-3], AppendTo[lst, f*q-3]]; q=f, {n, 6!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|