login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A018834 Numbers n such that decimal expansion of n^2 contains n as a substring. 14
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; text; 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.

MATHEMATICA

Select[Range[510000], MemberQ[FromDigits /@ Partition[IntegerDigits[#^2], IntegerLength[#], 1], #] &] (* Jayanta Basu, Jun 29 2013 *)

Select[Range[0, 510000], StringPosition[ToString[#^2], ToString[#]]!={}&] (* Ivan N. Ianakiev, Oct 02 2016 *)

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.

Cf. A000290, subsequence of A029943.

Sequence in context: A035282 A075156 A075904 * A029943 A063630 A119102

Adjacent sequences:  A018831 A018832 A018833 * A018835 A018836 A018837

KEYWORD

nonn,base

AUTHOR

David W. Wilson

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified March 24 06:12 EDT 2017. Contains 283984 sequences.