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.
%I A163128 #9 Feb 10 2019 23:03:00
%S A163128 0,1,2,3,4,14,24,34,44,54,64,74,84,94,95,105,115,125,135,145,155,165,
%T A163128 175,185,186,196,206,216,226,236,246,256,266,276,277,287,297,307,317,
%U A163128 327,337,347,357,367,368,378,388,398,408,418,428,438,448,458,459,469,479,489,499
%N A163128 a(n) is the n-th self-number minus n.
%F A163128 a(n) = A003052(n) - n.
%e A163128 a(6) = 20 - 6 = 14.
%e A163128 a(7) = 31 - 7 = 24.
%p A163128 A007953 := proc(n) add(d,d=convert(n,base,10)) ; end:
%p A163128 isA003052 := proc(n) for k from 1 to n do if k+A007953(k) = n then RETURN(false) ; fi; od: true; end:
%p A163128 A003052 := proc(n) option remember; if n = 1 then 1; else for a from procname(n-1)+1 do if isA003052(a) then RETURN(a) ; fi; od: fi; end:
%p A163128 A163128 := proc(n) A003052(n)-n ; end:
%p A163128 for n from 1 to 100 do printf("%d,",A163128(n)) ; od: # _R. J. Mathar_, Jul 31 2009
%Y A163128 Cf. A000027, A003052.
%K A163128 nonn,base
%O A163128 1,3
%A A163128 _Juri-Stepan Gerasimov_, Jul 21 2009
%E A163128 Entries checked by _R. J. Mathar_, Jul 31 2009