OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
Zak Seidov, A171673
MATHEMATICA
nn=1.2*10^7; list=Table[n + Total[IntegerDigits[n]], {n, nn}]; se=Complement[Range[nn], list]; se1=Select[Sqrt[se], IntegerQ[#]&]; Intersection[se, se1] (* Jayanta Basu, May 06 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 15 2009
EXTENSIONS
Changed the word "safe" in this entry to "self". - N. J. A. Sloane, Feb 26 2017
STATUS
approved