A361820 Palindromes in A329150.

0, 2, 3, 5, 7, 11, 22, 33, 55, 77, 202, 222, 232, 252, 272, 303, 313, 323, 333, 353, 373, 505, 525, 535, 555, 575, 707, 717, 727, 737, 757, 777, 1111, 2002, 2112, 2222, 2332, 2552, 2772, 3003, 3113, 3223, 3333, 3553, 3773, 5005, 5115, 5225, 5335, 5555, 5775, 7007, 7117

Offset: 1

Author

Bernard Schott, Mar 25 2023

Keywords

• nonn
• base

Comments

If m is a palindrome with no digit greater than 5 in A118597, then A329147(m) is a term, but there exist terms that are not of this form as 313, 717, ...

Examples

			232 is a term which has two preimages since A329147(91) = A329147(121) = 232.
313 = A329147(26) is a term whose preimage is not in A118597.
2002 is a term since A329147(1001) = 2002.
2112 is a term since A329147(151) = 2112.
27172 = A329147(1471) is a term whose preimage is not in A118597.
		

Crossrefs

Intersection of A002113 and A329150.

Cf. A118597, A329147, A361750, A361821.

Subsequences: A002276, A002277, A002279, A002281, A099814.

Programs

Mathematica

p[n_] := If[n > 0, Prime[n], 0]; seq[ndigmax_] := Module[{t = Table[FromDigits[ Flatten@ IntegerDigits@ (p /@ IntegerDigits[n])], {n, 0, 10^ndigmax - 1}]}, Union@ Select[t, # < 10^ndigmax && PalindromeQ[#] &]]; seq[4] (* Amiram Eldar, Mar 26 2023 *)

PARI

ispal(n) = my(d=digits(n)); d==Vecrev(d);
f(n) = if (n, fromdigits(concat(apply(d -> if (d, digits(prime(d)), [0]), digits(n)))), 0); \\ A329147
lista(nn) = my(list = List(), m); for (n=0, nn, m = f(n); if ((m <= nn) && ispal(m), listput(list, m));); vecsort(Set(list)); \\ Michel Marcus, Mar 26 2023