OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
A225693(n) = 3. - Robert Israel, Jun 12 2019
EXAMPLE
124 is in the sequence since 1 - 2 + 4 = 3.
MAPLE
A225693:= proc(n) local L, m, i;
L:= convert(n, base, 10);
m:= nops(L);
add(L[i]*(-1)^(m-i), i=1..m);
end proc:
select(A225693=3, [$1..1000]); # Robert Israel, Jun 12 2019
MATHEMATICA
aQ[n_] := Differences[Total @ Take[IntegerDigits[n], {#, -1, 2}] & /@ {2, 1}][[1]] == 3; Select[Range[1000], aQ] (* Amiram Eldar, Jun 12 2019 *)
Select[Range[1000], Total[Times@@@Partition[Riffle[IntegerDigits[#], {1, -1}, {2, -1, 2}], 2]]==3&] (* Harvey P. Dale, May 16 2020 *)
PROG
(PARI) isok(n) = my(d=digits(n)); sum(k=1, #d, (-1)^(k+1)*d[k]) == 3; \\ Michel Marcus, Jun 12 2019
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