login
A069851
Number of distinct primes obtained by inserting a 0 at all possible places in n. This includes prefixing.
9
0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0
OFFSET
1,11
EXAMPLE
See the example in A069842.
MATHEMATICA
Table[ Count[ PrimeQ[ Union[ FromDigits /@ Table[ Insert[ IntegerDigits[n], 0, j], {j, 1, Floor[ Log[10, n] + 2]}]]], True], {n, 1, 105}]
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 16 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 18 2002
STATUS
approved