OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
A225693(a(n)) = 1. - Reinhard Zumkeller, Aug 08 2014
EXAMPLE
221 is in the sequence since 2-2+1 = 1.
MATHEMATICA
d[n_]:=IntegerDigits[n]; a[n_]:=Differences[Reverse[Total/@{Take[d[n], {1, -1, 2}], Take[d[n], {2, -1, 2}]}]]; Select[Range[690], a[#]=={1} &] (* Jayanta Basu, May 18 2013 *)
Select[Range[1000], Total[Times@@@Partition[Riffle[IntegerDigits[#], {1, -1}, {2, -1, 2}], 2]]==1&] (* Harvey P. Dale, May 24 2021 *)
PROG
(Haskell)
a061470 n = a061470_list !! (n-1)
a061470_list = filter ((== 1) . a225693) [0..]
-- Reinhard Zumkeller, Aug 08 2014
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 14 2001
STATUS
approved