A063509 Squarefree Lucas numbers.

2, 1, 3, 7, 11, 29, 47, 123, 199, 322, 521, 843, 2207, 3571, 9349, 15127, 39603, 64079, 103682, 167761, 271443, 1149851, 3010349, 4870847, 12752043, 20633239, 33385282, 54018521, 87403803, 228826127, 370248451, 969323029, 1568397607

Offset: 1

Author

Jason Earls, Aug 09 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..200

Crossrefs

Cf. A000032.

Programs

Mathematica

Select[LucasL[Range[0,50]],SquareFreeQ] (* Harvey P. Dale, Jan 20 2020 *)

PARI

for(n=0,50,my(x=fibonacci(n)+2*fibonacci(n-1)); if(issquarefree(x),print1(x, ", ")))

Extensions

More terms from Dean Hickerson, Aug 22 2001

Offset changed by Andrew Howroyd, Sep 18 2024