OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
MATHEMATICA
A359144Q[n_]:=Module[{d=IntegerDigits[n], s, u}, If[MemberQ[s=IntegerDigits[Total[d]], First[u=Join[d, s]]], u=DeleteCases[u, First[u]]]; FromDigits[u]>0&&First[u]==0]; Select[Range[2000], A359144Q] (* Paolo Xausa, Oct 11 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(9) and beyond from Michael S. Branicky, Feb 01 2023
STATUS
approved