A327325 Integers with palindromic product of divisors.

1, 2, 3, 4, 5, 7, 11, 22, 26, 49, 101, 111, 121, 131, 151, 181, 191, 202, 313, 353, 373, 383, 727, 757, 787, 797, 919, 929, 1001, 1111, 2285, 10001, 10201, 10301, 10501, 10601, 11111, 11311, 11411, 12421, 12721, 12821, 13331, 13831, 13931, 14341, 14741, 15451

Offset

1,2

Comments

Numbers m such that A007955(m) = pod(m) are in A002113.

Corresponding values of pod(a(n)): 1, 2, 3, 8, 5, 7, 11, 484, 676, 343, 101, 12321, 1331, 131, 151, ...

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Example

A007955(49) = 343.

Mathematica

Select[Range[16000], PalindromeQ[#^(DivisorSigma[0, #]/2)] &] (* Amiram Eldar, Aug 31 2019 *)

Prog

(Magma) [m: m in [1..10^5] | Intseq(&*[d: d in Divisors(m)], 10) eq Reverse(Intseq(&*[d: d in Divisors(m)], 10))]
(PARI) isok(n) = my(d=digits(vecprod(divisors(n)))); Vecrev(d) == d; \\ Michel Marcus, Sep 02 2019

Crossrefs

Cf. A002113, A007955, A028980, A180925, A244411.

Sequence in context: A346076 A339357 A279065 * A340252 A324989 A015856

Adjacent sequences: A327322 A327323 A327324 * A327326 A327327 A327328

Keyword

nonn,base

Author

Jaroslav Krizek, Aug 30 2019

Status

approved