OFFSET
1,1
EXAMPLE
436^2 = 190096 and 437^2 = 190969 consist of the same digits (although not with the same multiplicities).
MATHEMATICA
Select[Range[10000], Union[IntegerDigits[ #^2]] == Union[IntegerDigits[(# + 1)^2]] &]
PROG
(PARI) isok(n) = Set(digits(n^2)) == Set(digits((n+1)^2)); \\ Michel Marcus, Oct 06 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Jul 23 2007
STATUS
approved