1,1
Select[ FromDigits /@ Flatten[ Table[ PadRight[{3}, i, # ] & /@ {1, 2, 3, 4, 5, 6, 7, 8, 9}, {i, 2, 24}], 1], PrimeQ[ # ] &]
Sequence in context: A141177 A046282 A045709 this_sequence A068331 A078330 A107210
Adjacent sequences: A090148 A090149 A090150 this_sequence A090152 A090153 A090154
nonn,base
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 22 2003
Search completed in 0.002 seconds