A326929 Numbers whose divisors and arithmetic mean of divisors are palindromic.
1, 3, 5, 6, 7, 11, 22, 131, 262, 13331, 26662, 1333331, 2666662
Offset: 1
Examples
The divisors of 2666662 are {1,2,1333331,2666662} which are all palindromic. Their arithmetic mean is 999999 and is also palindromic. Therefore, 2666662 is in the sequence.
Programs
-
Mathematica
palQ[n_]:=ToString[n]==StringReverse[ToString[n]]; fQ[n_]:=palQ[Mean[Divisors[n]]]&&Union[palQ/@Divisors[n]]=={True}; Select[Range[2666662],fQ]
Comments