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