login
A351337
Composite terms in A270951.
1
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.
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
KEYWORD
nonn
AUTHOR
Bill McEachen, Feb 08 2022
STATUS
approved