OFFSET
1,1
LINKS
MATHEMATICA
etsQ[n_]:=Count[#+Total[IntegerDigits[#, 4]]&/@Range[n-1], n]==2; Select[ Range[ 350], etsQ] (* Harvey P. Dale, May 25 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 30 2013
STATUS
approved