|
Search: id:A134749
|
|
| |
|
| 1, 1, 3, 2, 4, 4, 4, 2, 6, 3, 9, 6, 9, 3, 18, 3, 21, 9, 6, 6, 15, 6, 6, 9, 21, 3, 18, 3, 9, 6, 9, 3, -34, 4, 16, 8, 16, 4, 52, 4, 36, 12, 12, 8, 48, 8, 12, 12, 36, 4, 52, 4, 16, 8, 16, 4, 108, 4, 16, 8, 16, 4, 152, 4, 56, 16, 8, 12, 24, 8, 32, 16, 32, 8, 28, 4, 36, 12, 12, 8, 84, 4, 36, 12, 12, 8, 28, 4, 56, 16, 8, 12, 144, 12, 8, 16, 56, 4, 28, 8, 12
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Negative numbers occured for n=!k = A007489(k) and {k=3,4,5,...}
|
|
MATHEMATICA
|
a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 5}]; d = {}; Do[AppendTo[d, a[[n + 1]] - a[[n]]], {n, 1, Length[a] - 1}] ; d (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A007489, A134640, A134703, A134748, A134750.
Sequence in context: A023630 A110550 A128220 this_sequence A061901 A078822 A069745
Adjacent sequences: A134746 A134747 A134748 this_sequence A134750 A134751 A134752
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 08 2007
|
|
|
Search completed in 0.002 seconds
|
