OFFSET
1,1
COMMENTS
Differs from A060978 at the 47th term.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[3500], Total[Times@@@Partition[Riffle[IntegerDigits[#], {1, -1}, {2, -1, 2}], 2]]==10&] (* Harvey P. Dale, Apr 30 2016 *)
PROG
(PARI) isok(n) = {digs = digits(n); return (sum(i=1, #digs, (-1)^(i+1)*digs[i]) == 10); } \\ Michel Marcus, Jul 17 2013
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Larry Reeves (larryr(AT)acm.org), May 15 2001
STATUS
approved