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,2

Links

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

Example

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.

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

Crossrefs

Cf. A333663.

Sequence in context: A161041 A153907 A029306 * A261363 A341216 A116491

Adjacent sequences: A337508 A337509 A337510 * A337512 A337513 A337514

Keyword

nonn,easy,base

Author

David A. Corneth, Sep 07 2020

Status

approved