login
Numbers with a palindromic digital product.
1

%I #11 Sep 17 2024 14:22:11

%S 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,

%T 31,32,33,40,41,42,50,51,60,61,70,71,80,81,90,91,100,101,102,103,104,

%U 105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122

%N Numbers with a palindromic digital product.

%C A046510 is a subsequence.

%C 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

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

%Y Cf. A007954, A046510, A090274.

%K base,easy,nonn

%O 1,3

%A _Amarnath Murthy_, Nov 28 2003

%E More terms from _David Wasserman_, Oct 24 2005

%E Offset changed by _Andrew Howroyd_, Sep 17 2024