A069851 Number of distinct primes obtained by inserting a 0 at all possible places in n. This includes prefixing.

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

Links

Table of n, a(n) for n=1..105.

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}]

Crossrefs

Cf. A069842, A069843, A069844, A069845, A069846, A069847, A069848, A069849 and A069850.

Sequence in context: A262682 A318983 A318982 * A197629 A198255 A290542

Adjacent sequences: A069848 A069849 A069850 * A069852 A069853 A069854

Keyword

base,nonn

Author

Amarnath Murthy, Apr 16 2002

Extensions

Edited and extended by Robert G. Wilson v, Apr 18 2002

Status

approved