OFFSET
1,1
MATHEMATICA
Select[Range[800], Total[Times@@@Partition[Riffle[IntegerDigits[#], {1, -1}, {1, -1, 2}], 2]]==7&] (* Harvey P. Dale, May 01 2022 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, May 05 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 10 2001 and from Larry Reeves (larryr(AT)acm.org), May 15 2001
STATUS
approved