A351337 Composite terms in A270951.

169, 385, 961, 1121, 3741, 3781, 4795, 4901, 6061, 6265, 6441, 6601, 6895, 6931, 7801, 8119, 9809, 9881, 10945, 13981, 14111, 15841, 18241, 18721, 19097, 20833, 23829, 24727, 29953, 30381, 30889, 31417, 34561, 37345, 38081, 40391, 42127, 45961, 47321, 49105

Offset: 1

Author

Bill McEachen, Feb 08 2022

Keywords

• nonn

Comments

The sequence appears to have no intersection with A128288.

Crossrefs

Intersection of A002808 and A270951.

Cf. A128288.

Programs

Mathematica

q[n_] := CompositeQ[n] && Divisible[Fibonacci[n - 1, 2], n]; Select[Range[50000], q] (* Amiram Eldar, Feb 09 2022 *)

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