OFFSET
1,1
COMMENTS
The sequence appears to have no intersection with A128288.
MATHEMATICA
q[n_] := CompositeQ[n] && Divisible[Fibonacci[n - 1, 2], n]; Select[Range[50000], q] (* Amiram Eldar, Feb 09 2022 *)
PROG
(PARI) a000129(n) = ([2, 1; 1, 0]^n)[2, 1];
is(n) = (n>1) && !isprime(n) && (Mod(a000129(n-1), n) == 0); \\ Michel Marcus, Feb 09 2022; after A270951
CROSSREFS
KEYWORD
nonn
AUTHOR
Bill McEachen, Feb 08 2022
STATUS
approved