A344466 Primes that occur as p + (digit product of p) for p in A092518.

29, 47, 67, 107, 109, 181, 251, 293, 331, 347, 431, 443, 457, 491, 547, 593, 631, 653, 659, 673, 743, 823, 827, 839, 929, 971, 977, 1091, 1129, 1181, 1231, 1237, 1279, 1321, 1327, 1423, 1433, 1447, 1471, 1483, 1493, 1499, 1553, 1559, 1579, 1601, 1777, 1823, 1867, 1871, 1951, 1993, 2113, 2137

Offset: 1

Author

J. M. Bergot and Robert Israel, May 20 2021

Keywords

• nonn
• base

Comments

Terms are unique and in numerical order.

There are terms that correspond to more than one member of A092518, such as 827 = 683+6*8*3 = 743+7*4*3.

Examples

			a(4) = 107 is a term because 83 = A092518(5) and 107 = 83+8*3.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A053666, A092518.

Programs

Maple

N:= 10000: # to get terms <= N
S:= {}:
p:= 1:
do
  p:= nextprime(p);
  if p >= N then break fi;
  L:= convert(p,base,10);
  if member(0,L) then next fi;
  q:= p + convert(L,`*`);
  if q <= N and isprime(q) then
     S:= S union {q};
  fi
od:
sort(convert(S,list));