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
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 *)