OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..819 (* All terms through 999999. *)
EXAMPLE
1469 and 6284 are members because 1+9=4+6=10 and 6+4=2+8=10.
MATHEMATICA
ok10Q[n_]:=Module[{idn=IntegerDigits[n]}, idn[[1]]+idn[[4]]==idn[[2]]+idn[[3]]==10]; Join[ Select[ Range[10, 99], Total[IntegerDigits[#]]==10&], Select[Range[1000, 9999], ok10Q]] (* Harvey P. Dale, Oct 14 2023 *)
PROG
(PARI) isok(n) = {digs = digits(n); if (#digs % 2 == 0, for (i = 1, #digs/2, if ((digs[i] + digs[#digs+1-i]) ! = 10, return (0)); ); return (1); ); return (0); } \\ Michel Marcus, Oct 05 2013
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov Jun 15 2003
STATUS
approved