A189056 Numbers having in decimal representation at least one common digit with their squares.

0, 1, 5, 6, 10, 11, 12, 13, 14, 15, 16, 19, 20, 21, 23, 25, 26, 27, 28, 30, 31, 32, 35, 36, 37, 40, 41, 42, 43, 45, 46, 48, 49, 50, 51, 52, 55, 56, 60, 61, 63, 64, 65, 66, 68, 69, 70, 71, 73, 74, 75, 76, 78, 80, 81, 82, 83, 85, 86, 87, 89, 90, 91, 93, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120

Offset: 1

Author

Reinhard Zumkeller, Apr 16 2011

Keywords

• nonn
• base

Comments

Complement of A029783; A076493(a(n)) > 0.

A258682(a(n)) < a(n)^2. - Reinhard Zumkeller, Jun 07 2015

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A029783, A076493, A258682.

Programs

Haskell

a189056 n = a189056_list !! (n-1)
a189056_list = 0 : filter (\x -> a258682 x /= x ^ 2) [1..]
-- Reinhard Zumkeller, Jun 07 2015, Apr 16 2011

Mathematica

Select[Range[0,120],Length[Intersection[IntegerDigits[#], IntegerDigits[ #^2]]]>0&] (* Harvey P. Dale, Aug 28 2012 *)

PARI

isok(n) = (n==0) || #setintersect(Set(digits(n)), Set(digits(n^2))); \\ Michel Marcus, Jun 13 2015