|
Search: id:A009388
|
|
|
| A009388 |
|
If a, b in sequence, so is ab-1. |
|
+0
3
|
|
| 2, 3, 5, 8, 9, 14, 15, 17, 23, 24, 26, 27, 29, 33, 39, 41, 44, 45, 47, 50, 51, 53, 57, 63, 65, 68, 69, 71, 74, 77, 80, 81, 84, 86, 87, 89, 93, 98, 99, 101, 105, 111, 113, 114, 116, 119, 122, 125, 129, 131, 134, 135, 137, 140, 141, 144, 147, 149, 152, 153, 158, 159, 161, 164
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[l_] := Block[{k = l}, Select[ Union[ Flatten[ AppendTo[k, Table[ k[[i]]*k[[j]] - 1, {i, 1, Length[k]}, {j, 1, i}]]]], # < 170 &]]; NestList[f, {2}, 6][[ -1]] (from Robert G. Wilson v May 23 2004)
|
|
CROSSREFS
|
This appears to be a superset of A005659 - 1.
Cf. A009293. This is superset of A005659 - 1.
Sequence in context: A139487 A035422 A058237 this_sequence A125871 A104737 A120057
Adjacent sequences: A009385 A009386 A009387 this_sequence A009389 A009390 A009391
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
