%I#17 2023年10月6日15:36:07

%S 0,1,2,3,7,10,61,80100121174182200276313432441463537612，

%电话66673977596110001239118214131952232242725942935，

%电话：3195337338135424438456646304818526653535456363702675388142

%N对N进行编号，使N^N的位数之和为平方。

%H Harry J.Smith，n的表，a（n）表示n=1，。。。，64个</a>

%t fQ[n_]：=整数Q[Sqrt[Plus@@IntegerDigits[n^n]]]；Do[如果[fQ[n]，打印[n]]，{n，8498}]（*_Robert G.Wilson v_，2004年11月23日*）

%o（PARI）总和D（x）={局部（s=0）；while（x>9，s+=x%10；x\=10）；return（s+x）}{n=0；对于（m=0，10^9，if（issquare（SumD（m^m））），写（“b066236.txt”，n++，“”，m）；if（n==1000，return））}\\_Harry J.Smith_，2010年2月7日

%Y参见A000290、A000312、A007953、A066588。

%K基，nonn

%氧1,3

%A _Jason Earls，2001年12月19日

%E更多条款摘自Robert G.Wilson v_，2004年11月23日