%I #14 Jan 20 2020 15:53:34
%S 2,1,3,7,11,29,47,123,199,322,521,843,2207,3571,9349,15127,39603,
%T 64079,103682,167761,271443,1149851,3010349,4870847,12752043,20633239,
%U 33385282,54018521,87403803,228826127,370248451,969323029,1568397607
%N Squarefree Lucas numbers.
%H Harry J. Smith, <a href="/A063509/b063509.txt">Table of n, a(n) for n = 0..200</a>
%t Select[LucasL[Range[0,50]],SquareFreeQ] (* _Harvey P. Dale_, Jan 20 2020 *)
%o (PARI) for(n=0,30,x=fibonacci(n)+2*fibonacci(n-1); if(issquarefree(x),print(x)))
%o (PARI) { n=-1; g=1; f=0; for (m=0, 10^9, if (issquarefree(a=f + 2*g), write("b063509.txt", n++, " ", a); if (n==200, break)); h=g; g=f; f+=h ) } \\ _Harry J. Smith_, Aug 24 2009
%Y Cf. A000032.
%K nonn
%O 0,1
%A _Jason Earls_, Aug 09 2001
%E More terms from _Dean Hickerson_, Aug 22 2001
|