A260738 - OEIS

A260738

Row index to A255127: a(1) = 0; for n > 1, a(n) = number of the stage where n is removed in the sieve which produces Ludic numbers.

0, 1, 2, 1, 3, 1, 4, 1, 2, 1, 5, 1, 6, 1, 2, 1, 7, 1, 3, 1, 2, 1, 8, 1, 9, 1, 2, 1, 10, 1, 4, 1, 2, 1, 3, 1, 11, 1, 2, 1, 12, 1, 13, 1, 2, 1, 14, 1, 3, 1, 2, 1, 15, 1, 5, 1, 2, 1, 4, 1, 16, 1, 2, 1, 3, 1, 17, 1, 2, 1, 18, 1, 6, 1, 2, 1, 19, 1, 3, 1, 2, 1, 20, 1, 4, 1, 2, 1, 21, 1, 22, 1, 2, 1, 3, 1, 23, 1, 2, 1, 7, 1, 5, 1, 2, 1, 24, 1, 3, 1, 2, 1, 4, 1, 25, 1, 2, 1, 26, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..10105

FORMULA

Other identities. For all n >= 1:

a(A003309(n)) = n-1. [In Ludic sieve A003309(k+1) (i.e., the k-th Ludic number after 1) is the first among the numbers removed at stage k.]

a(2n) = 1. [All even numbers are removed at the stage one of the sieve.]

a(A016945(n)) = 2, a(A255413(n)) = 3, a(A255414(n)) = 4, ..., a(A255419(n)) = 9.

a(A254100(n)) = n.

For all n >= 2:

A255127(a(n), A260739(n)) = n.

PROG

(Scheme)

(define (A260738 n) (cond ((= 1 n) 0) ((even? n) 1) (else (let searchrow ((row 2)) (let searchcol ((col 1)) (cond ((>= (A255127bi row col) n) (if (= (A255127bi row col) n) row (searchrow (+ 1 row)))) (else (searchcol (+ 1 col))))))))) ;; Code for A255127bi given in A255127.

CROSSREFS

Row index to array A255127.

Cf. A003309, A254100.

Cf. A260739 (corresponding column index).

Cf. A055396, A260438 for row indices to other arrays similar to A255127.

Differs from A055396 for the first time at n=19.

Sequence in context: A364448 A028920 A376566 * A055396 A363486 A363941

Adjacent sequences: A260735 A260736 A260737 * A260739 A260740 A260741

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jul 30 2015

STATUS

approved