A050743 Numbers k such that the decimal expansion of k^4 contains no pair of consecutive equal digits.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 17, 18, 19, 22, 23, 25, 26, 28, 29, 31, 32, 36, 37, 38, 41, 44, 47, 48, 49, 51, 53, 54, 55, 61, 63, 65, 66, 68, 72, 73, 75, 77, 78, 81, 82, 83, 84, 87, 91, 92, 93, 94, 95, 96, 99, 101, 102, 106, 107, 111, 112, 113, 116, 124

Offset

1,3

Links

Table of n, a(n) for n=1..69.

Mathematica

Select[Range[0, 200], And@@(First[#]!=Last[#]&/@ Partition[ IntegerDigits [#^4], 2, 1])&]  (* Harvey P. Dale, Apr 11 2011 *)

Crossrefs

Cf. A050751.

Sequence in context: A178160 A052044 A253643 * A306311 A028964 A219361

Adjacent sequences: A050740 A050741 A050742 * A050744 A050745 A050746

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1999

Status

approved