This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a(14) = 10300, since A068065(14) = 10601 = 10300 + 00301 and for no other k we have 10601 = k + reverse(k).
18 = 9 + 9; 261 = 180 + 081; 11401 = 10700 + 00701.
var n,k,c,i,rev: integer; st,nst: string; end; m := 1; for n := 0 to 29000 do k := n div 2; c := 0; while k <= n and c < m + 1 do st := itoa(k); nst := ""; for i := 0 to length(st) - 1 do nst := concat(st[i],nst); end; rev := atoi(nst); if n = k + rev then inc(c); if k mod 10 <> 0 and k <> rev then inc(c); end; end; inc(k); end; if c = m then write(n,","); end; end;
revAdd[n_] := n + FromDigits[Reverse[IntegerDigits[n]]]; ra=Table[revAdd[n], {n, 0, 10^5}]; t=Sort[Tally[ra]]; First /@ Select[t, #[[2]] == 1 && #[[1]] <= Length[ra] &]
Comments