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,1

Comments

The sequence appears to have no intersection with A128288.

Links

Table of n, a(n) for n=1..40.

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

Intersection of A002808 and A270951.

Cf. A128288.

Sequence in context: A156159 A099011 A330276 * A327652 A112076 A305055

Adjacent sequences: A351334 A351335 A351336 * A351338 A351339 A351340

Keyword

nonn

Author

Bill McEachen, Feb 08 2022

Status

approved