|
%I #15 Nov 25 2023 17:07:26
%S 1,3,13,15,21,39,49,55,69,75,91,111,115,159,163,165,169,171,183,193,
%T 195,199,201,205,211,229,235,241,249,265,271,273,289,291,309,313,319,
%U 321,325,331,333,349,351,355,363,379,381,385,391,393,405,423,441,445
%N Numbers k such that k concatenated with k+8 is a prime.
%H Harvey P. Dale, <a href="/A032623/b032623.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[500],PrimeQ[FromDigits[Flatten[IntegerDigits/@{#,#+8}]]]&] (* _Harvey P. Dale_, Nov 25 2023 *)
%Y Cf. A032613.
%K nonn,base
%O 1,2
%A _Patrick De Geest_, May 15 1998
|
