A248513 -id:A248513 - cp's OEIS frontend

A277820 Square array: A(r,1) = A065621(r); for c > 1, A(r,c) = A048724(A(r,c-1)), read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

1, 3, 2, 5, 6, 7, 15, 10, 9, 4, 17, 30, 27, 12, 13, 51, 34, 45, 20, 23, 14, 85, 102, 119, 60, 57, 18, 11, 255, 170, 153, 68, 75, 54, 29, 8, 257, 510, 427, 204, 221, 90, 39, 24, 25, 771, 514, 765, 340, 359, 238, 105, 40, 43, 26, 1285, 1542, 1799, 1020, 937, 306, 187, 120, 125, 46, 31, 3855, 2570, 2313, 1028, 1275, 854, 461, 136, 135, 114, 33, 28

Offset: 1

Antti Karttunen, Nov 01 2016

For all n >= 1, A277818 (= A268389(n)+1) gives the (one-based) index of the column where n is located in this array, while A268671(n) gives the (one-based) index of the row where it is on.

This array is obtained when one selects from A277320 the columns 1, 3, 5, 15, 17, 51, ..., i.e., those with an index A001317(k).

			The top left corner of the array:
   1,  3,   5,  15,  17,   51,   85,  255,   257,   771,  1285,  3855
   2,  6,  10,  30,  34,  102,  170,  510,   514,  1542,  2570,  7710
   7,  9,  27,  45, 119,  153,  427,  765,  1799,  2313,  6939, 11565
   4, 12,  20,  60,  68,  204,  340, 1020,  1028,  3084,  5140, 15420
  13, 23,  57,  75, 221,  359,  937, 1275,  3341,  5911, 14649, 19275
  14, 18,  54,  90, 238,  306,  854, 1530,  3598,  4626, 13878, 23130
  11, 29,  39, 105, 187,  461,  599, 1785,  2827,  7453, 10023, 26985
   8, 24,  40, 120, 136,  408,  680, 2040,  2056,  6168, 10280, 30840
  25, 43, 125, 135, 393,  667, 1965, 2295,  6425, 11051, 32125, 34695
  26, 46, 114, 150, 442,  718, 1874, 2550,  6682, 11822, 29298, 38550
  31, 33,  99, 165, 495,  561, 1619, 2805,  7967,  8481, 25443, 42405
  28, 36, 108, 180, 476,  612, 1708, 3060,  7196,  9252, 27756, 46260
  21, 63,  65, 195, 325,  975, 1105, 3315,  5397, 16191, 16705, 50115
  22, 58,  78, 210, 374,  922, 1198, 3570,  5654, 14906, 20046, 53970
  19, 53,  95, 225, 291,  869, 1455, 3825,  4883, 13621, 24415, 57825
  16, 48,  80, 240, 272,  816, 1360, 4080,  4112, 12336, 20560, 61680
  49, 83, 245, 287, 801, 1379, 4005, 4335, 12593, 21331, 62965, 73247
  50, 86, 250, 270, 786, 1334, 3930, 4590, 12850, 22102, 64250, 69390
  55, 89, 235, 317, 839, 1481, 3675, 4845, 14135, 22873, 60395, 80957

Inverse permutation: A277821.
Transpose: A277819.
Cf. A048724, A065621.
Row 1: A001317.
Column 1: A065621, column 2: A277823, column 3: A277825.
Cf. A268389, A277818, A268671.
Cf. also A193231, A277320, A277810, A276618 (A099884), A248513.
Other related tables or permutations: A277880, A277901.

(define (A277820 n) (A277820bi (A002260 n) (A004736 n)))
(define (A277820bi row col) (if (= 1 col) (A065621 row) (A048724 (A277820bi row (- col 1)))))

A(r,1) = A065621(r); for c > 1, A(r,c) = A048724(A(r,c-1)).
A(r,c) = A048675(A277810(r,c)).
As a composition of other permutations:
a(n) = A277901(A277880(n)).

A277880 Dispersion of evil numbers: Square array A(r,c) with A(r,1) = A000069(r); and for c > 1, A(r,c) = A001969(1+(A(r,c-1))), read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

Original entry on oeis.org

1, 3, 2, 6, 5, 4, 12, 10, 9, 7, 24, 20, 18, 15, 8, 48, 40, 36, 30, 17, 11, 96, 80, 72, 60, 34, 23, 13, 192, 160, 144, 120, 68, 46, 27, 14, 384, 320, 288, 240, 136, 92, 54, 29, 16, 768, 640, 576, 480, 272, 184, 108, 58, 33, 19, 1536, 1280, 1152, 960, 544, 368, 216, 116, 66, 39, 21, 3072, 2560, 2304, 1920, 1088, 736, 432, 232, 132, 78, 43, 22

Offset: 1

Antti Karttunen, Nov 03 2016

			The top left 12 x 12 corner of the array:
   1,  3,  6,  12,  24,  48,   96,  192,  384,   768,  1536,  3072
   2,  5, 10,  20,  40,  80,  160,  320,  640,  1280,  2560,  5120
   4,  9, 18,  36,  72, 144,  288,  576, 1152,  2304,  4608,  9216
   7, 15, 30,  60, 120, 240,  480,  960, 1920,  3840,  7680, 15360
   8, 17, 34,  68, 136, 272,  544, 1088, 2176,  4352,  8704, 17408
  11, 23, 46,  92, 184, 368,  736, 1472, 2944,  5888, 11776, 23552
  13, 27, 54, 108, 216, 432,  864, 1728, 3456,  6912, 13824, 27648
  14, 29, 58, 116, 232, 464,  928, 1856, 3712,  7424, 14848, 29696
  16, 33, 66, 132, 264, 528, 1056, 2112, 4224,  8448, 16896, 33792
  19, 39, 78, 156, 312, 624, 1248, 2496, 4992,  9984, 19968, 39936
  21, 43, 86, 172, 344, 688, 1376, 2752, 5504, 11008, 22016, 44032
  22, 45, 90, 180, 360, 720, 1440, 2880, 5760, 11520, 23040, 46080

Inverse permutation: A277881.
Transpose: A277882.
Column 1: A000069, column 2: A129771.
Row 1: A003945.
Cf. A277813 (index of the row where n is located in this array), A277822 (index of the column).
Cf. A001969.
Other related tables or permutations: A277820, A277902, A248513.

(define (A277880 n) (A277880bi (A002260 n) (A004736 n)))
(define (A277880bi row col) (if (= 1 col) (A000069 row) (A001969 (+ 1 (A277880bi row (- col 1))))))
;; Alternatively:
(define (A277880bi row col) (cond ((= 1 col) (A000069 row)) ((= 2 col) (A129771 row)) (else (* 2 (A277880bi row (- col 1))))))
(define (A129771 n) (+ 1 (* 2 (A000069 n))))

A(r,1) = A000069(r) and for c > 1, A(r,c) = A001969(1+(A(r,c-1))).
Alternatively, if we set also the second column explicitly as:
   A(r,2) = A129771(r) = 1+ 2*A000069(r),
then the rest of entries in each row are obtained just by doubling the preceding term on the same row: A(r,c) = 2*A(r,c-1), for c >= 3.
As a composition of other permutations:
a(n) = A277902(A277820(n)).

A248514 Fractal sequence of the dispersion of the "odious numbers".

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 4, 2, 1, 5, 6, 3, 7, 4, 2, 8, 1, 9, 10, 5, 11, 6, 3, 12, 13, 7, 4, 14, 2, 15, 16, 8, 1, 17, 18, 9, 19, 10, 5, 20, 21, 11, 6, 22, 3, 23, 24, 12, 25, 13, 7, 26, 4, 27, 28, 14, 2, 29, 30, 15, 31, 16, 8, 32, 1, 33, 34, 17, 35, 18, 9, 36, 37, 19

Offset: 1

Clark Kimberling, Oct 08 2014

As a fractal sequence, it contains infinitely many copies of itself: removing the first occurrence of each number leaves the original sequence.

			A northwest corner of the dispersion (A248513) of the "odious numbers" (A181155) follows:
1 ... 2 ... 3 ... 5 ... 9 ... 17 .... 33
4 ... 8 ... 15 .. 29 .. 57 .. 113 ... 225
6 ... 12 .. 23 .. 45 .. 89 .. 177 ... 353
7 ... 14 .. 27 .. 53 .. 105 .. 209 .. 417
10 .. 20 .. 39 .. 77 .. 153 .. 305 .. 609
The numbers 1, 2, 3, 4, 5 appear in rows 1, 1, 1, 2, 1, respectively, so that A248514 = (1, 1, 1, 2, 1, ...).

Clark Kimberling, "Fractal sequences and interspersions," Ars Combinatoria 45 (1997) 157-168.

Clark Kimberling, Table of n, a(n) for n = 1..200

Cf. A248513.

r = 40; r1 = 10; (* r = # rows of T, r1 = # rows to show*);
c = 40; c1 = 12; (* c = # cols of T, c1 = # cols to show*);
x = GoldenRatio; s[n_] := s[n] = If[n < 1, 0, 2 n - Mod[Total[IntegerDigits[n - 1, 2]], 2]];
mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1,   Length[Union[list]]]; rows = {NestList[s, 1, c]};
Do[rows = Append[rows, NestList[s, mex[Flatten[rows]], r]], {r}];
t[i_, j_] := rows[[i, j]]; TableForm[Table[t[i, j], {i, 1, r1}, {j, 1, c1}]] (* A248513 array*)
u = Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]]  (* A248013 sequence*)
row[i_] := row[i] = Table[t[i, j], {j, 1, c}]
f[n_] := Select[Range[r], MemberQ[row[#], n] &]
v = Flatten[Table[f[n], {n, 1, 200}]]  (* A248514 *)

cp's OEIS Frontend

A277820 Square array: A(r,1) = A065621(r); for c > 1, A(r,c) = A048724(A(r,c-1)), read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Scheme

Formula

A277880 Dispersion of evil numbers: Square array A(r,c) with A(r,1) = A000069(r); and for c > 1, A(r,c) = A001969(1+(A(r,c-1))), read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Scheme

Formula

A248514 Fractal sequence of the dispersion of the "odious numbers".

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica