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

Links

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

Mathematica

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

Crossrefs

A subset of A050741.

Sequence in context: A007377 A305932 A213882 * A052061 A045540 A119509

Adjacent sequences: A135137 A135138 A135139 * A135141 A135142 A135143

Keyword

base,nonn

Author

Zak Seidov, Feb 13 2008

Status

approved