算法题：一个数加100后是一个完全平方数，加268后也是完全平方数

两周没用mma，各种写法都忘光了

优化了一下
If[Head@((# + 100)^((1/2))) === Integer &&
Head@((# + 268)^((1/2))) === Integer, #, 0] & /@
Array[# &, 1000] //. {m___, 0, n___} -> {m, n}

中间的2个结构是相似的
Head@((# + 100)^((1/2))) === Integer &&
Head@((# + 268)^((1/2))) === Integer, #, 0
有没有什么办法把他们写在一起，但是映射的#已经在if用过一次了

利用PackedArray和Listable加速
Pick[#, Transpose@{Mod[(#+100.)^(.5), 1.], Mod[(#+268.)^(.5), 1.]}, {0., 0.}]&@Range@1000000

Intersection[# - 100, # - 268] &[Range[10, 1000]^2]

注意到(n + 1)^2 - n^2 是没有上界的：
# Boole[IntegerQ@((# + 100)^((1/2))) &&
IntegerQ@((# + 268)^((1/2)))] & /@
Range@(Floor@((Reduce[(n + 1)^2 - n^2 <= 268 - 100, {n}][[2]])^2) +
1) //. {m___, 0, n___} -> {m, n}