login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A046834 Internal digits of n^2 include digits of n as subsequence. 2

%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_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 16:12 EDT 2024. Contains 371254 sequences. (Running on oeis4.)