|
%I #5 May 01 2022 19:33:52
%S 7,70,81,92,106,117,128,139,205,216,227,238,249,304,315,326,337,348,
%T 359,403,414,425,436,447,458,469,502,513,524,535,546,557,568,579,601,
%U 612,623,634,645,656,667,678,689,700,711,722,733,744,755,766,777,788
%N First (leftmost) digit - second digit + third digit - fourth digit .... = 7.
%t Select[Range[800],Total[Times@@@Partition[Riffle[IntegerDigits[#],{1,-1},{1,-1,2}],2]]==7&] (* _Harvey P. Dale_, May 01 2022 *)
%Y Cf. A008593, A060978-A060980, A060982, A061470-A061479, A061870-A061882.
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, May 05 2001
%E More terms from _Robert G. Wilson v_, May 10 2001 and from Larry Reeves (larryr(AT)acm.org), May 15 2001
|
