|
|
A329389
|
|
Solution sequence (a(n)) of the complementary equation a(n) = 6 b(n+1) - b(n), with b(0) = 1.
|
|
2
|
|
|
11, 16, 21, 26, 31, 36, 41, 46, 51, 62, 66, 71, 76, 87, 91, 96, 101, 112, 116, 121, 126, 137, 141, 146, 151, 162, 166, 171, 176, 187, 191, 196, 201, 212, 216, 221, 226, 237, 241, 246, 251, 262, 266, 271, 276, 281, 286, 291, 296, 301, 306, 317, 321, 326, 337
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
The conditions that (a(n)) and (b(n)) be increasing and complementary force the equation a(n) = 6 b(n+1) - b(n), with initial value b(0) = 1, to have a unique solution; that is, a pair of complementary sequences (a(n)) = (11,16,21,26,31,...) and (b(n)) = (1,2,3,4,5,6,7,8,9,10,12,...). Conjecture: {a(n) - 6 n} is unbounded below and above.
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]);
b = {1}; a = {}; h = 6;
Do[AppendTo[b, mex[Flatten[{a, b}], b[[-1]]]];
AppendTo[a, h b[[-1]] - b[[-2]]], {250}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|