[go: up one dir, main page]

login
A063509
Squarefree Lucas numbers.
2
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,1
LINKS
MATHEMATICA
Select[LucasL[Range[0, 50]], SquareFreeQ] (* Harvey P. Dale, Jan 20 2020 *)
PROG
(PARI) for(n=0, 50, my(x=fibonacci(n)+2*fibonacci(n-1)); if(issquarefree(x), print1(x, ", ")))
CROSSREFS
Cf. A000032.
Sequence in context: A174254 A024404 A077173 * A137766 A294620 A010758
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 09 2001
EXTENSIONS
More terms from Dean Hickerson, Aug 22 2001
Offset changed by Andrew Howroyd, Sep 18 2024
STATUS
approved