EDITED A083140.

[y.kohmoto]

    Robert G. Wilson wrote,


>Neil,
>
> a(20) should be 33 and not 27 and a(27) should be 39 and not 33. I also
added the
>Mathematica coding and extended the sequence.


    Why? Then, where does 27 exist?
    It doesn't become a permutation.

    "n-th line is a sequence of integers whose smallest prime factor is
Prime(n)."
    So, second line is not A001748 and third line is not A001750.

    Yasutoshi

>
>Thanx. Bob.
>
>PS, would you like the determinants of this? It would begin: 2, 6, -60,
1680.
>
>%I A083140
>%S A083140
2,3,4,5,9,6,7,25,15,8,11,49,35,21,10,13,121,77,55,33,12,17,169,143,91,
>%T A083140
65,39,14,19,289,221,187,119,85,51,16,23,361,323,247,209,133,95,57,18,
>%U A083140
29,529,437,391,299,253,161,115,69,20,31,841,667,551,493,377,319,203,145
>%N A083140 Sieve of Eratosthenes arranged as array and read by
antidiagonals in up
>direction. n-th line is a sequence of integers whose smallest prime factor
is
>Prime(n).
>%C A083140 A permutation of natural numbers more than 2.
>%H A083140 <a
>href="http://www.research.att.com/~njas/sequences/Sindx_Per.html#IntegerPer
mutation">Index
>entries for sequences that are permutations of the natural numbers</a>
>%e A083140 Array begins:
>%e A083140  2   4   6   8   10 .... (A005843)
>%e A083140  3   9  15  21   33 .... (A001748)
>%e A083140  5  25  35  55   65 .... (A001750)
>%e A083140  7  49  77  91  119 ....
>%e A083140 11 121 143 187  209 ....
>%t A083140 a = {Table[2n, {n, 1, 12}], Join[{3}, Table[3Prime[n], {n, 2,
12}]],
>Join[{5}, Table[5Prime[n], {n, 3, 13}]], Join[{7}, Table[7Prime[n], {n, 4,
14}]],
>Join[{11}, Table[11Prime[n], {n, 5, 15}]], Join[{13}, Table[13Prime[n], {n,
6,
>16}]], Join[{17}, Table[17Prime[n], {n, 7, 17}]], Join[{19},
Table[19Prime[n], {n,
>8, 18}]], Join[{23}, Table[23Prime[n], {n, 9, 19}]], Join[{29},
Table[29Prime[n],
>{n, 10, 20}]], Join[{31}, Table[31Prime[n], {n, 11, 21}]], Join[{37},
>Table[37Prime[n], {n, 12, 22}]]}; Flatten[ Table[ a[[i, n - i]], {n, 2,
12}, {i, n
>- 1, 1, -1}]]
>%Y A083140 Cf. A083141, A083221, A004280, A038179.
>%K A083140 nonn,tabl,new
>%O A083140 2,1
>%A A083140 Yasutoshi Kohmoto (zbi74583(AT)boat.zero.ad.jp), Jun 05 2003
>%E A083140 Edited, corrected and extended by Robert G. Wilson v
(rgwv at rgwv.com),
>Jun 11 2003
>