OFFSET
1,2
EXAMPLE
Number of divisors of palindrome number 22 with divisors 1, 2, 11 and 22 is 4 (palindrome number).
MAPLE
ispali:= proc(n) local L; L:= convert(n, base, 10); L = ListTools:-Reverse(L) end proc:
select(t -> ispali(t) and ispali(numtheory:-tau(t)), [$1..10000]); # Robert Israel, Mar 26 2019
MATHEMATICA
Select[Range@ 600, And[PalindromeQ@ #, PalindromeQ@ DivisorSigma[0, #]] &] (* Michael De Vlieger, Mar 24 2019 *)
PROG
(Magma) [n: n in [1..1000] | Intseq(n, 10) eq Reverse(Intseq(n, 10)) and Intseq(NumberOfDivisors(n), 10) eq Reverse(Intseq(NumberOfDivisors(n), 10))]
(PARI) ispal(n) = my(d=digits(n)); Vecrev(d) == d;
isok(n) = ispal(n) && ispal(numdiv(n)); \\ Michel Marcus, Mar 23 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 23 2019
STATUS
approved