%I #26 Mar 07 2020 01:58:59
%S 139,151,199,331,541,619,661,709,811,829,919,1069,1231,1279,1291,1381,
%T 1471,1579,1699,1999,2161,2221,2239,2251,2281,2371,2389,2521,2659,
%U 2689,2749,3001,3121,3271,3331,3391,3499,3529,3571,3631,3919,4021,4051,4159
%N Primes for which golden mean is a cubic residue.
%C Primes of the form x^2 + xy + 34y^2, whose discriminant is -135. - _T. D. Noe_, May 17 2005
%C Primes of the form x^2 + 135*y^2. - _Arkadiusz Wesolowski_, May 31 2015
%H Vincenzo Librandi, <a href="/A047652/b047652.txt">Table of n, a(n) for n = 1..1000</a>
%H E. Lehmer, <a href="http://www.fq.math.ca/Scanned/4-2/lehmer.pdf">On the quadratic character of the Fibonacci root</a>, Fib. Quart., 4 (1966), 135-138.
%H E. Lehmer, <a href="/A001583/a001583.pdf">On the quadratic character of the Fibonacci root</a> (annotated scanned copy)
%F Primes p that divide Fibonacci((p-1)/3). - _Alexander Adamchuk_, Sep 16 2006
%t Select[Prime[Range[1000]],IntegerQ[Fibonacci[(#1-1)/3]/#1]&] (* _Alexander Adamchuk_, Sep 16 2006 *)
%Y Cf. A047650.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
%E More terms from _James A. Sellers_, Jan 25 2000