login
Number of distinct primes obtained by inserting an 8 at all possible places in n. This includes prefixing.
9

%I #8 Nov 28 2016 02:39:51

%S 0,0,1,0,0,0,0,0,1,0,2,0,0,0,0,0,0,0,0,0,2,0,2,0,0,0,1,0,1,0,0,0,1,0,

%T 0,0,0,0,2,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,2,0,1,0,0,0,2,0,0,0,0,0,

%U 0,0,0,0,0,0,0,0,2,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,0,0

%N Number of distinct primes obtained by inserting an 8 at all possible places in n. This includes prefixing.

%e See the example in A069842.

%t Table[ Count[ PrimeQ[ Union[ FromDigits /@ Table[ Insert[ IntegerDigits[n], 8, j], {j, 1, Floor[ Log[10, n] + 2]}]]], True], {n, 1, 105}]

%Y Cf. A069842, A069843, A069844, A069845, A069846, A069847, A069848, A069850 and A069851.

%K base,nonn

%O 1,11

%A _Amarnath Murthy_, Apr 16 2002

%E Edited, corrected and extended by _Robert G. Wilson v_, Apr 18 2002