A135140 Numbers n such that n and n^2 do not contain successive identical digits.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 13, 14, 16, 17, 18, 19, 23, 24, 25, 26, 27, 28, 29, 31, 32, 36, 37, 39, 41, 42, 43, 45, 48, 49, 51, 52, 53, 54, 56, 57, 59, 61, 63, 64, 68, 69, 71, 72, 73, 74, 75, 78, 79, 81, 82, 84, 86, 87, 89, 91, 92, 93, 95, 96, 97, 98, 101, 102, 103, 104, 121

Offset: 1

Author

Zak Seidov, Feb 13 2008

Keywords

• base
• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000

Crossrefs

A subset of A050741.

Programs

Mathematica

Select[Range[0,150],Count[Differences[IntegerDigits[#]],0] == Count[ Differences[IntegerDigits[#^2]],0]==0&] (* Harvey P. Dale, Mar 14 2012 *)