OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..221 from Indranil Ghosh)
EXAMPLE
The divisors of 44 are 1, 2, 4, 11, 22 and 44, which are all palindromes, so 44 is in the sequence.
808 has divisors are 1, 2, 4, 8, 101, 202, 404, 808, so 808 is in the sequence.
818 is palindromic, but since it's 2 * 409, it's not in the sequence.
MAPLE
isA062687 := proc(n)
for d in numtheory[divisors](n) do
if not isA002113(d) then
return false;
end if;
end do;
true ;
end proc: # R. J. Mathar, Sep 09 2015
MATHEMATICA
palQ[n_] := Module[{idn = IntegerDigits[n]}, idn == Reverse[idn]]; Select[Range[2750], And@@palQ/@Divisors[#] &] (* Harvey P. Dale, Feb 27 2012 *)
PROG
(PARI) isok(n) = {d = divisors(n); rd = vector(#d, i, subst(Polrev(digits(d[i])), x, 10)); (d == rd); } \\ Michel Marcus, Oct 10 2014
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Erich Friedman, Jul 04 2001
STATUS
approved