A050743 - OEIS

%I #12 Oct 16 2019 01:31:54

%S 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,

%T 36,37,38,41,44,47,48,49,51,53,54,55,61,63,65,66,68,72,73,75,77,78,81,

%U 82,83,84,87,91,92,93,94,95,96,99,101,102,106,107,111,112,113,116,124

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

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

%Y Cf. A050751.

%K nonn,base

%O 1,3

%A _Patrick De Geest_, Sep 15 1999