|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
