%I #25 Apr 04 2023 15:40:36
%S 50,60,250,500,600,760,1050,2050,2500,3050,3628,3710,3760,3792,4050,
%T 4410,5000,5010,5050,5060,5250,6000,6010,6050,6250,6760,7050,7560,
%U 7600,8050,8250,8260,8882,9050,9460,10050,10500,14650,14651,20050,20500
%N Internal digits of n^2 include digits of n as subsequence.
%C If n is a member then so is 10*n. - _Robert Israel_, May 07 2020
%H David A. Corneth, <a href="/A046834/b046834.txt">Table of n, a(n) for n = 1..10000</a> (first 5000 terms from Robert Israel)
%e a(7) = 1050 is a term because 1050^2 = 1102500; remove the first and last to get internal digits 10250, and 1050 is a subsequence of 10250. - _Robert Israel_, May 07 2020
%p filter:= n -> StringTools:-IsSubSequence(sprintf("%d",n),sprintf("%d",n^2)[2..-2]):
%p select(filter, [$10..30000]); # _Robert Israel_, May 07 2020
%o (Python)
%o from itertools import count, islice
%o def A046834_gen(startvalue=1): # generator of terms >= startvalue
%o for k in count(max(startvalue,1)):
%o c = iter(str(k**2)[1:-1])
%o if all(map(lambda b:any(map(lambda a:a==b,c)),str(k))):
%o yield k
%o A046834_list = list(islice(A046834_gen(),20)) # _Chai Wah Wu_, Apr 03 2023
%Y Cf. A046831, A052212.
%K nonn,base,easy
%O 1,1
%A _David W. Wilson_
|