%I #8 Oct 06 2018 04:39:04
%S 13,157,436,515,847,863,900,913,987,992,1010,1100,1213,1350,1358,1686,
%T 1784,2015,2183,2263,2313,2342,2597,2778,3186,3279,3347,3486,3536,
%U 3592,3649,3779,3899,3909,3913,3971,3986,4012,4099,4248,4284,4286,4291,4412
%N Numbers k such that the set of digits of k^2 is the same as the set of digits of (k+1)^2.
%e 436^2 = 190096 and 437^2 = 190969 consist of the same digits (although not with the same multiplicities).
%t Select[Range[10000], Union[IntegerDigits[ #^2]] == Union[IntegerDigits[(# + 1)^2]] &]
%o (PARI) isok(n) = Set(digits(n^2)) == Set(digits((n+1)^2)); \\ _Michel Marcus_, Oct 06 2018
%Y The sequence A072841 (digits of k^2 are exactly the same (albeit in different order) as the digits of (k+1)^2) is a subsequence of this sequence.
%K base,nonn
%O 1,1
%A _Tanya Khovanova_, Jul 23 2007
|