OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
fibQ[n_] := n >= 2 && Or @@ IntegerQ /@ Sqrt[5*n^2 + {-4, 4}]; Select[Range[300], !fibQ[Max[FactorInteger[#][[;; , 2]]] + 1] &]
PROG
(PARI) isfib(n) = n >= 2 && (issquare(5*n^2-4) || issquare(5*n^2+4));
is(n) = n > 1 && !isfib(vecmax(factor(n)[, 2]) + 1);
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Amiram Eldar, Aug 15 2024
STATUS
approved