|
| |
|
|
A018834
|
|
Numbers n such that decimal expansion of n^2 contains n as a substring.
|
|
9
| |
|
|
0, 1, 5, 6, 10, 25, 50, 60, 76, 100, 250, 376, 500, 600, 625, 760, 1000, 2500, 3760, 3792, 5000, 6000, 6250, 7600, 9376, 10000, 14651, 25000, 37600, 50000, 60000, 62500, 76000, 90625, 93760, 100000, 109376, 250000, 376000, 495475, 500000, 505025
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| David W. Wilson, Table of n, a(n) for n = 1..126
|
|
|
EXAMPLE
| 25^2 = 625 which contains 25.
3792^2 = 14_3792_64, 14651^2 = 2_14651_801.
|
|
|
PROG
| (Haskell)
import Data.List (isInfixOf)
a018834 n = a018834_list !! (n-1)
a018834_list = filter (\x -> show x `isInfixOf` show (x^2)) [0..]
-- Reinhard Zumkeller, Jul 27 2011
|
|
|
CROSSREFS
| Cf. A029942, A003226, A046831, A046851, a045953.
Sequence in context: A035282 A075156 A075904 * A029943 A063630 A119102
Adjacent sequences: A018831 A018832 A018833 * A018835 A018836 A018837
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
