OFFSET
1,1
COMMENTS
Original name was: Final terms of rows in A077344.
Subsidiary sequence: There can be a rearrangement of primes in groups so that the n-th group contains n primes beginning with n and not occurring earlier. E.g. the initial term of row 11 would be 113 and not 11.
LINKS
MAPLE
u:= (h, t)-> select(isprime, [seq(h*10^t+k, k=0..10^t-1)]):
A:= proc(n, k) local l, p;
l:= proc() [] end; p:= proc() -1 end;
while nops(l(k))<n do p(k):= p(k)+1;
l(k):= [l(k)[], u(k, p(k))[]]
od: l(k)[n]
end:
a:= n-> A(n$2):
seq(a(n), n=1..45); # Alois P. Heinz, Sep 30 2015
MATHEMATICA
u[h_, t_] := Select[Table[h*10^t + k, {k, 0, 10^t - 1}], PrimeQ];
A[n_, k_] := Module[{l, p}, l[_] = {}; p[_] = -1; While[Length[l[k]] < n, p[k] = p[k] + 1; l[k] = Join[l[k], u[k, p[k]]]]; l[k][[n]]];
a[n_] := A[n, n];
Table[a[n], {n, 1, 45}] (* Jean-François Alcover, Oct 25 2021, after Alois P. Heinz *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 05 2002
EXTENSIONS
More terms and new name from Alois P. Heinz, Sep 30 2015
STATUS
approved