A344451 Lexicographically earliest sequence S of distinct positive terms such that the n-th prime digit of S is present in a(n).

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

Links

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

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

Adjacent sequences: A344448 A344449 A344450 * A344452 A344453 A344454

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, May 19 2021

Status

approved