|
%I #12 Jul 28 2021 04:20:16
%S 12,16,18,28,46,64,76,78,82,88,102,126,132,138,148,154,178,184,186,
%T 196,208,214,226,228,234,246,264,282,288,298,316,318,322,324,328,342,
%U 348,352,372,408,418,424,432,438,442,444,456,462,468,472,474,478,484
%N Numbers k such that k concatenated with k+5 is a prime.
%t nc5pQ[n_]:=PrimeQ[FromDigits[Join[IntegerDigits[n],IntegerDigits[n+5]]]]; Select[Range[500],nc5pQ] (* _Harvey P. Dale_, Mar 25 2016 *)
%Y Cf. A032610.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, May 15 1998
|
