OFFSET
1,3
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset 1 from Alois P. Heinz, Apr 03 2023
STATUS
approved