腾迅不敢发放的一个QQ号码

大家先去查找60481729这个QQ。。。。。。怎么样？什么也查不到吧！ 
为什么极其普通的一个号TX一直不敢放出来呢？ 

首先得从这个号码的数字上分析原因。大家注意没？我把60481729这个QQ从中间分开，分成6048和1729两个数字。然后再相印6048+ 1729=7777，很不错的数字。还没完呢。继续。而7777×7777=60481729，晕！怎么又回来了？？ 

这个数字正是传说中的雷劈数！（印度某个数学家发现的，之所以叫雷劈数是因为在雷雨天气路边的里程桩号“3025”被雷从中间劈成2半而正好被这个科学 家走狗屎运发现的，因为30+25=55，55×55=3025。偶上小学时候在中国少年报上看的，现在在网上根本找不到雷劈数得名的原因，嘎嘎装下B） 

而腾讯的老马脑子里还是带点迷性，当初放号的时候像这类非常不吉利的数字都给注销了，万一哪天被雷劈了他肯定会死不瞑目的。干事业还是得图个吉利，而当初 申请8位QQ那段时间腾讯正处于困难时期，听说老马差点50万把QQ卖了，所以对于这些不吉利的东西还是予以避讳。 

但是老马的智商还是有限的，雷劈数不仅仅只有这一个，比如25502500，24502500，52881984，99980001都是雷劈数！只是60481729这个雷劈数非常出名所以老马予以没收了。。。。。。


计算程序：

procedure TForm1.Button1Click(Sender: TObject);
var
LStrList: TStringList;
I, J, K: Integer;
LCount: Integer;
begin
LStrList := TStringList.Create;

LCount := 1000000;
K := 10;
while(K < LCount) do
begin
for I := 1 to K - 1 do
begin
for J := 1 to K - 1 do
begin
if (I+J)*(I+J) = I * K + J then
LStrList.Add(Format('%d,%d', [I, J]))
end;

end;

K := K * 10;
end;

LStrList.SaveToFile('LeiPi.txt');
LStrList.Free;
end;

8,1
20,25
30,25
98,1
88,209
494,209
998,1
494,1729
744,1984
2450,2500
2550,2500
5288,1984
6048,1729
9998,1
238,4641
3008,14336
4938,17284
60494,17284
68320,14336
90480,4641
99998,1