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
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, May 19 2021
STATUS
approved