A090273 Numbers with a palindromic digital product.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 30, 31, 32, 33, 40, 41, 42, 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122

Offset: 1

Author

Amarnath Murthy, Nov 28 2003

Keywords

• base
• easy
• nonn

Comments

A046510 is a subsequence.

A046510 (numbers with digital product < 10) is a subsequence of this sequence. 777 is the first member of this sequence that is not in A046510. - David Wasserman, Oct 24 2005

Crossrefs

Cf. A007954, A046510, A090274.

Programs

Mathematica

pdpQ[n_]:=Module[{idpn=IntegerDigits[Times@@IntegerDigits[n]]},idpn == Reverse[idpn]]; Select[Range[0,150],pdpQ] (* Harvey P. Dale, Oct 01 2013 *)

Extensions

More terms from David Wasserman, Oct 24 2005

Offset changed by Andrew Howroyd, Sep 17 2024