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

Author

N. J. A. Sloane

Keywords

• nonn
• nice

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

Crossrefs

Cf. A049476, A049477, A088643, A346778.

Programs

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

Extensions

Revised by Sean A. Irvine, Aug 03 2021