|
%I #4 Dec 15 2012 11:23:30
%S 5,16,27,38,49,50,61,72,83,94,104,115,126,137,148,159,160,171,182,193,
%T 203,214,225,236,247,258,269,270,281,292,302,313,324,335,346,357,368,
%U 379,380,391,401,412,423,434,445,456,467,478,489,490,500,511,522,533
%N |First digit - second digit + third digit - fourth digit ...| = 5.
%t Do[ a = IntegerDigits[ n ]; l = Length[ a ]; e = o = {}; Do[ o = Append[ o, a[ [ 2k - 1 ] ] ], {k, 1, l/2 + .5} ]; Do[ e = Append[ e, a[ [ 2k ] ] ], {k, 1, l/2} ]; If[ Abs[ Apply[ Plus, o ] - Apply[ Plus, e ] ] == 5, Print[ n ] ], {n, 1, 1000} ]
%t Select[Range[600],Abs[Total[Times@@@Partition[Riffle[IntegerDigits[#],{1,-1},{2,-1,2}],2]]]==5&] (* _Harvey P. Dale_, Dec 15 2012 *)
%Y Cf. A008593, A060978-A060980, A060982, A061470-A061479, A061870-A061882.
%K nonn,base,easy
%O 1,1
%A _Robert G. Wilson v_, May 10 2001
|
