OFFSET
1,41
EXAMPLE
See the example in A069842.
MATHEMATICA
Table[ Count[ PrimeQ[ Union[ FromDigits /@ Table[ Insert[ IntegerDigits[n], 2, j], {j, 1, Floor[ Log[10, n] + 2]}]]], True], {n, 1, 105}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 16 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 18 2002
a(17) corrected by Georg Fischer, Apr 19 2022
STATUS
approved