This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A075739 #10 Aug 20 2019 09:14:17 %S A075739 144,2584,46368,75025,14930352,4807526976,12586269025,86267571272, %T A075739 225851433717,1548008755920,498454011879264,2111485077978050, %U A075739 160500643816367088,2880067194370816120,51680708854858323072,354224848179261915075,16641027750620563662096 %N A075739 Nonsquarefree Fibonacci numbers whose indices are also not squarefree. %e A075739 Fib(18)=2584 is there because neither 18 nor 2584 is squarefree. %p A075739 with(combinat, fibonacci): fib_supM_ndsk := proc(n); if (numtheory[issqrfree](n)='false') then if (numtheory[issqrfree](fibonacci(n))='false') then RETURN(fibonacci(n)); fi; fi; end: seq(fib_supM_ndsk(i), i=1..200); %t A075739 Select[Table[{n,Fibonacci[n]},{n,300}],NoneTrue[#,SquareFreeQ]&][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 20 2019 *) %Y A075739 Cf. A000045, A013929, A061899, A075738. %K A075739 easy,nonn %O A075739 1,1 %A A075739 _Jani Melik_, Oct 07 2002 %E A075739 Edited by _Don Reble_, Nov 05 2005 %E A075739 More terms from _Harvey P. Dale_, Aug 20 2019