OFFSET
1,1
COMMENTS
Suggested by E. Angelini, cf. link.
LINKS
E. Angelini, in "Les membres de ce groupe forment un nombre premier", April 30, 2009.
MATHEMATICA
Select[Flatten[Table[FromDigits[Join[IntegerDigits[h], PadLeft[ IntegerDigits[ m], 2]]], {h, Prime[Range[9]]}, {m, Prime[Range[ 17]]}]], PrimeQ] (* Harvey P. Dale, Mar 27 2022 *)
PROG
(PARI) forprime( h=0, 24, forprime( m=0, 60, isprime(100*h+m) & print1(100*h+m, ", ")))
CROSSREFS
KEYWORD
base,dumb,easy,fini,full,nonn
AUTHOR
M. F. Hasler, May 01 2009
STATUS
approved