A337511 A333663(n) is the a(n)-th term in A333663 with its leading digit.

1, 2, 1, 1, 2, 1, 2, 3, 3, 4, 5, 3, 4, 6, 4, 1, 5, 2, 2, 3, 4, 5, 6, 5, 7, 6, 7, 3, 8, 8, 7, 9, 6, 7, 9, 8, 10, 8, 10, 11, 11, 4, 12, 9, 10, 12, 9, 11, 13, 14, 13, 12, 13, 10, 5, 14, 6, 11, 12, 15, 13, 15, 16, 16, 17, 17, 14, 14, 18, 7, 8, 15, 9, 18, 15, 16, 16, 17

Offset: 1

Author

David A. Corneth, Sep 07 2020

Keywords

• nonn
• easy
• base

Examples

			A333663 starts 1, 16, 64, 4, 49, 9, 900, 961, 100, ... so
A333663(1) is the first term with a leading 1 giving a(1) = 1.
A333663(2) is the second term with a leading 1 so a(2) = 2.
A333663(3) is the first term with a leading 6 so a(3) = 1.
		

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A333663.

Programs

Mathematica

With[{t = Map[IntegerDigits[#][[1]] &, Nest[Block[{a = #, k = 1, d = Mod[#[[-1]]/10^IntegerExponent[#[[-1]] ], 10]}, While[Nand[FreeQ[a, #], d == Floor[#/10^(IntegerLength[#] - 1)] ] &[k^2], k++]; Append[a, k^2]] &, {1}, 77]]}, Array[Count[t[[1 ;; #]], t[[#]]] &, Length[t]]] (* Michael De Vlieger, Sep 11 2020 *)