A123895 -id:A123895 - cp's OEIS frontend

A123896 a(n) = A123895(n^2).

0, 1, 1, 1, 12, 12, 12, 12, 12, 12, 100, 121, 122, 123, 123, 112, 123, 123, 123, 123, 100, 112, 121, 123, 123, 123, 121, 123, 123, 123, 100, 123, 1023, 1023, 1123, 1223, 1234, 1234, 1222, 1231, 1200, 1231, 1234, 1234, 1234, 1012, 1223, 1102, 1203, 1203, 1200

Offset: 0

N. J. A. Sloane, Nov 20 2006

D. E. Knuth, The Art of Computer Programming, vol. 4A, Combinatorial Algorithms, Section 7.2.1.5, p. 432, Problems 4 and 5.

Michael De Vlieger, Table of n, a(n) for n = 0..10000

f[n_] := Block[{d = Prepend[IntegerDigits@ n, 0], a, b, w}, b = DeleteDuplicates@ d; a = Range[0, Length@ b]; w = FromDigits@ Flatten[Part[a, FirstPosition[b, #]] & /@ d]; w]; Table[f[n^2], {n, 0, 50}] (* Michael De Vlieger, Dec 09 2015, Version 10 *)

More terms from Franklin T. Adams-Watters, Nov 20 2006

A125098 Values occurring in A123895.

Original entry on oeis.org

0, 1, 10, 11, 12, 100, 101, 102, 110, 111, 112, 120, 121, 122, 123, 1000, 1001, 1002, 1010, 1011, 1012, 1020, 1021, 1022, 1023, 1100, 1101, 1102, 1110, 1111, 1112, 1120, 1121, 1122, 1123, 1200, 1201, 1202, 1203, 1210, 1211, 1212, 1213, 1220, 1221, 1222

Offset: 0

Franklin T. Adams-Watters, Nov 20 2006

Also, numbers n such that A123895(n) = n. Each digit is either 0, has occurred before, or is one more than the largest preceding digit. The number of k-digit numbers in this sequence is A005493(k-1) for 2<=k<=9. The initial 0 prevents a match for k=1; later values fall short because there are no digits beyond 9 available in decimal.

R. J. Mathar, Table of n, a(n) for n = 0..876

Cf. A123895, A005493, A123902.

bag := {} ;
for i from 0 to 99999 do
    bag := bag union {A123895(i)} ;
end do:
sort(convert(bag,list)) ; # R. J. Mathar, Dec 10 2015

f[n_] := Block[{d = Prepend[IntegerDigits@ n, 0], a, b, w}, b = DeleteDuplicates@ d; a = Range[0, Length@ b]; w = FromDigits@ Flatten[Part[a, FirstPosition[b, #]] & /@ d]; w]; Union@ Table[f@n, {n, 0, 10^4}] (* Michael De Vlieger, Dec 09 2015, Version 10 *)

A123925 Index of first occurrence of A123902(n) in A123896.

Original entry on oeis.org

0, 1, 4, 10, 15, 11, 12, 13, 45, 32, 47, 88, 34, 40, 97, 48, 56, 38, 35, 39, 63, 62, 36, 100, 283, 245, 201, 266, 101, 102, 103, 104, 143, 225, 284, 142, 105, 149, 150, 151, 212, 258, 109, 107, 236, 106, 247, 145, 205, 243, 138, 179, 110, 165, 264, 119, 162, 123

Offset: 0

Franklin T. Adams-Watters, Nov 20 2006

First number whose square has A123902(n) as its restricted growth string.

Cf. A123902, A123896, A123895.

cp's OEIS Frontend

A123896 a(n) = A123895(n^2).

Views

Author

Keywords

References

Links

Programs

Mathematica

Extensions

A125098 Values occurring in A123895.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

A123925 Index of first occurrence of A123902(n) in A123896.

Views

Author

Keywords

Comments

Crossrefs