OFFSET
0,3
COMMENTS
a(n) = A067535*(a(n-2)+a(n-1)) for n>1.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
MATHEMATICA
Module[{lst={0, 1}}, Do[Module[{k=Total[Take[lst, -2]]}, While[!SquareFreeQ[ k], k++]; AppendTo[lst, k]], {40}]; Join[{0}, Drop[lst, 2]]] Harvey P. Dale, May 16 2012
ssn[{a_, b_}]:=Module[{k=a+b}, While[!SquareFreeQ[k], k++]; k]; Join[{0}, Drop[NestList[ {#[[2]], ssn[#]}&, {0, 1}, 40][[;; , 1]], 2]] (* Harvey P. Dale, Aug 12 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 21 2006
STATUS
approved