|
%I #7 Oct 12 2019 12:23:07
%S 7,11,22,32,55,77,111,140,147,168,175,186,189,191,242,259,284,309,363,
%T 364,365,382,391,395,399,426,455,461,519,527,538,554,604,620,639,692,
%U 719,728,745,748,805,813,861,862,873,958,964,988,991,1037,1109,1122
%N Numbers n with property that sopf(n)+sopf(n+1) is a square.
%C Or, A175649(n) is a square.
%C Or, positions of squares in A175649.
%C or, A008472(n)+A008472(n+1) is a square. Squares are in A175652.
%C Prime factors counted without multiplicity. - _Harvey P. Dale_, Jan 15 2017
%H Amiram Eldar, <a href="/A175651/b175651.txt">Table of n, a(n) for n = 1..10000</a>
%t Position[Partition[Table[Total[FactorInteger[n][[All,1]]],{n,1200}], 2,1],_?(IntegerQ[Sqrt[Total[#]]]&)]//Quiet//Flatten (* _Harvey P. Dale_, Jan 15 2017 *)
%Y Cf. A008472, A175649, A175652.
%K nonn
%O 1,1
%A _Zak Seidov_, Aug 03 2010
|
