OFFSET
1,1
COMMENTS
See A385871 for the full definition for this sequence.
A permutation of the prime numbers.
EXAMPLE
The irregular triangle begins:
2, 3, 7;
5, 11, 23;
13;
17;
19, 37;
29, 53;
31;
41, 73;
...
PROG
(PARI) f(n) = my(m=1, x); while((x=(prime(n) + 2*(n - 1) + m - prime(n + m)))>= 0, if (x==0, return(m+n)); m++); \\ A385871
lista(nn) = my(list = List(), vp=vector(nn)); for (n=1, nn, if (!vp[n], my(v=Vec(prime(n)), m=n); vp[n] = 1; while(m = f(m), v=concat(v, prime(m)); if (m<=nn, vp[m]=1)); listput(list, v); ); ); Vec(list); \\ Michel Marcus, Jul 19 2025
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Tamas Sandor Nagy, Jul 19 2025
EXTENSIONS
More terms from Michel Marcus, Jul 19 2025
STATUS
approved
