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,3

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

Mathematica

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

Prog

(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
(PARI) isok(n) = (n==0) || #setintersect(Set(digits(n)), Set(digits(n^2))); \\ Michel Marcus, Jun 13 2015

Crossrefs

Cf. A029783, A076493, A258682.

Sequence in context: A019125 A019205 A191472 * A340325 A247561 A273401

Adjacent sequences: A189053 A189054 A189055 * A189057 A189058 A189059

Keyword

nonn,base

Author

Reinhard Zumkeller, Apr 16 2011

Status

approved