A049478 Record values in A346778.

0, 1, 4, 6, 12, 22, 27, 62, 64, 84, 104, 106, 108, 114, 132, 142, 178, 179, 186, 213, 216, 247, 273, 322, 341, 357, 358, 449, 458, 462, 470, 478, 482, 495, 499, 502, 581, 585, 597, 598, 623, 662, 672, 681, 735, 772, 778, 794, 818, 827, 851, 864

Offset

1,3

Comments

Record values of the least g >= 1 such that the first g terms of row n of A088643 [start with n and always append the largest k < n not yet used such that n+k is a prime] constitute the set {n, n-1, ..., n-g+1}, and the next (i.e., (g+1)-th) term of that row equals n-g. - M. F. Hasler, Aug 04 2021

Links

Table of n, a(n) for n=1..52.

Prog

(PARI) {print1(m=0); for( n=1, oo, my( r=A088643_row(n)); for( g=1, #r-1, if( Set(r[1..g]) == [n-g+1..n] && r[g+1]==n-g, g > m && print1(", "m=g); break)))} \\ M. F. Hasler, Aug 04 2021

Crossrefs

Cf. A049476, A049477, A088643, A346778.

Sequence in context: A128034 A027150 A020141 * A263458 A163776 A050558

Adjacent sequences: A049475 A049476 A049477 * A049479 A049480 A049481

Keyword

nonn,nice

Author

N. J. A. Sloane

Extensions

Revised by Sean A. Irvine, Aug 03 2021

Status

approved