OFFSET
0,2
EXAMPLE
a(0) = 1 and 1 has 0 distinct prime factors.
a(1) = 3 and 13 has 1 distinct prime factor.
a(2) = 4 and 134 = 2*67 has 2 distinct prime factors.
a(3) = 2 and 1342 = 2*11*61 has 3 distinct prime factors.
a(4) = 11 and 134211 = 3*7^2*11*83 has 4 distinct prime factors.
MATHEMATICA
a[0]=1; a[n_]:=a[n]=Block[{t=1}, While[PrimeNu[FromDigits@Flatten[IntegerDigits/@Join[Array[a, n, 0], {t}]]]!=n||MemberQ[Array[a, n, 0], t], t++]; t]; Array[a, 11, 0]
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Giorgos Kalogeropoulos, Oct 26 2023
EXTENSIONS
a(13) from Michael S. Branicky, Oct 27 2023
a(14) from Sean A. Irvine, Dec 03 2023
a(15)-a(17) from Daniel Suteu, Dec 03 2023
a(18) from Daniel Suteu, Aug 11 2024
STATUS
approved