login
A344451
Lexicographically earliest sequence S of distinct positive terms such that the n-th prime digit of S is present in a(n).
0
2, 3, 5, 7, 12, 13, 15, 17, 20, 21, 22, 23, 24, 30, 25, 31, 26, 35, 32, 27, 33, 45, 34, 28, 29, 37, 36, 38, 50, 39, 42, 52, 43, 47, 53, 63, 51, 73, 62, 54, 72, 83, 57, 55, 93, 103, 56, 67, 113, 82, 58, 70, 92, 123, 59, 71, 65, 75, 130, 131, 85, 74, 132, 102, 95, 76, 112, 120, 133, 105, 77, 115, 78, 125
OFFSET
1,1
EXAMPLE
The 13th prime digit of S is 2 (from 23) and this 2 is present in the 13th term of S (which is 24).
MATHEMATICA
a[1]=2; a[n_]:=a[n]=Block[{k=1}, While[MemberQ[l=Array[a, n-1], k]||FreeQ[IntegerDigits@k, Quiet@Select[Flatten[IntegerDigits/@Join[l, {k}]], PrimeQ][[n]]], k++]; k]; Array[a, 74] (* Giorgos Kalogeropoulos, May 11 2022 *)
CROSSREFS
Cf. A247143.
Sequence in context: A116692 A114983 A118950 * A092620 A028843 A028842
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, May 19 2021
STATUS
approved