login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A046831 Digits of n^2 include digits of n as substring, n does not end in 0. 6

%I

%S 1,5,6,25,76,376,625,3792,9376,14651,90625,109376,495475,505025,

%T 890625,971582,1713526,2890625,4115964,5133355,6933808,7109376,

%U 10050125,12890625,48588526,50050025,66952741,87109376,88027284,88819024

%N Digits of n^2 include digits of n as substring, n does not end in 0.

%H Giovanni Resta, <a href="/A046831/b046831.txt">Table of n, a(n) for n = 1..64</a>

%t Reap[For[n = 1, n < 10^8, n++, If[Mod[n, 10] != 0, If[StringPosition[ToString[n^2], ToString[n]] != {}, Print[n]; Sow[n]]]]][[2, 1]] (* _Jean-Fran├žois Alcover_, Apr 04 2013 *)

%o (Haskell)

%o a046831 n = a046831_list !! (n-1)

%o a046831_list = filter ((> 0) . (`mod` 10)) a018834_list

%o -- _Reinhard Zumkeller_, Jul 27 2011

%Y Cf. A018834, A003226, A008851.

%K nonn,base

%O 1,2

%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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 29 23:30 EDT 2021. Contains 346346 sequences. (Running on oeis4.)