OFFSET
1,2
COMMENTS
Almost certainly a permutation of A045572. - David W. Wilson, Jan 15 2005
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = {{1}}; Do[k = 2; While[Nand[! MemberQ[a, #], PrimeQ@ FromDigits@ Join[a[[n - 1]], #]] &@ Set[d, IntegerDigits@ k], k++]; AppendTo[a, d], {n, 2, 61}]; FromDigits /@ a (* Michael De Vlieger, May 08 2017 *)
PROG
(PARI) A075607(n, show=0, a=1, u=[])={for(n=2, n, show&&print1(a", "); u=setunion(u, [a]); while(#u>1&&u[2]==u[1]+2, u=u[2..-1]); forstep(k=u[1]+2, 9e9, 2, setsearch(u, k)&&next; isprime(eval(Str(a, k))) && (a=k) && break)); a} \\ Use 2nd, 3rd or 4th optional arg to print intermediate terms, to use another starting value or to exclude some terms. - M. F. Hasler, Nov 25 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 28 2002
EXTENSIONS
More terms from Michel ten Voorde Jun 23 2003
STATUS
approved