A046829 Numbers k such that digits of k^2 include digits of k as subsequence.

0, 1, 5, 6, 10, 11, 25, 50, 60, 76, 95, 96, 100, 101, 105, 110, 125, 205, 250, 305, 371, 376, 405, 441, 500, 501, 505, 506, 525, 600, 601, 605, 625, 676, 705, 756, 760, 805, 825, 826, 905, 946, 950, 960, 976, 995, 996, 1000, 1001, 1005, 1006, 1010, 1011

Offset

1,3

Links

Table of n, a(n) for n=1..53.

Mathematica

fQ[n_]:=LongestCommonSequence[ToString[n^2], ToString[n]]==ToString[n];
Select[Range[0, 1011], fQ[#]&] (* Ivan N. Ianakiev, Dec 29 2023 *)

Prog

(Python)
from itertools import count, islice
def A046829_gen(startvalue=0): # generator of terms >= startvalue
    for k in count(max(startvalue, 0)):
        c = iter(str(k**2))
        if all(map(lambda b:any(map(lambda a:a==b, c)), str(k))):
            yield k
A046829_list = list(islice(A046829_gen(), 20)) # Chai Wah Wu, Apr 03 2023

Crossrefs

Cf. A046827, A062118 (subsequence).

Sequence in context: A308262 A029780 A074913 * A052212 A046838 A326418

Adjacent sequences: A046826 A046827 A046828 * A046830 A046831 A046832

Keyword

nonn,base

Author

David W. Wilson

Extensions

Offset 1 from Alois P. Heinz, Apr 03 2023

Status

approved