This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A130868 #8 Oct 06 2018 04:39:04 %S A130868 13,157,436,515,847,863,900,913,987,992,1010,1100,1213,1350,1358,1686, %T A130868 1784,2015,2183,2263,2313,2342,2597,2778,3186,3279,3347,3486,3536, %U A130868 3592,3649,3779,3899,3909,3913,3971,3986,4012,4099,4248,4284,4286,4291,4412 %N A130868 Numbers k such that the set of digits of k^2 is the same as the set of digits of (k+1)^2. %e A130868 436^2 = 190096 and 437^2 = 190969 consist of the same digits (although not with the same multiplicities). %t A130868 Select[Range[10000], Union[IntegerDigits[ #^2]] == Union[IntegerDigits[(# + 1)^2]] &] %o A130868 (PARI) isok(n) = Set(digits(n^2)) == Set(digits((n+1)^2)); \\ _Michel Marcus_, Oct 06 2018 %Y A130868 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 A130868 base,nonn %O A130868 1,1 %A A130868 _Tanya Khovanova_, Jul 23 2007