160422(2)

Ruby


2乗すると回文数になるが、回文数でない数

オンライン整数列大辞典の
A251673（http://oeis.org/A251673/list）
に載っている。

def palindrome?(str)
  str == str.reverse
end

def A251673(n)
  ary = []
  i, cnt = 0, 0
  while cnt < n
    i += 1
    if !palindrome?(i.to_s)
      if palindrome?((i * i).to_s)
        ary << i
        cnt += 1
      end
    end
  end
  ary
end

p A251673(20)

出力結果
[26, 264, 307, 836, 2285, 2636, 22865, 24846, 30693, 798644, 1042151, 1109111, 1270869, 2012748, 2294675, 3069307, 11129361, 12028229, 12866669, 30001253]