login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069850 Number of distinct primes obtained by inserting a 9 at all possible places in n. This includes prefixing as well as suffixing. 10
1, 1, 0, 0, 1, 0, 2, 1, 0, 1, 2, 0, 2, 1, 0, 0, 2, 0, 2, 0, 0, 1, 2, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 3, 1, 0, 1, 3, 0, 1, 1, 0, 0, 2, 0, 1, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0, 1, 2, 0, 1, 0, 0, 1, 2, 0, 0, 1, 0, 1, 2, 0, 1, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 1, 0, 0, 1, 3, 0, 3, 1, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,7
LINKS
EXAMPLE
See the example in A069842.
MAPLE
f:= proc(n) local k;
if member(n mod 10, {0, 2, 4, 5, 6, 8}) then if isprime(10*n+9) then return 1 else return 0 fi fi;
nops(select(isprime, {seq(9*10^k + 10^(k+1)*floor(n/10^k) + (n mod 10^k), k=0..ilog10(n)+1)}));
end proc:
map(f, [$1..200]); # Robert Israel, Oct 09 2020
MATHEMATICA
Table[ Count[ PrimeQ[ Union[ FromDigits /@ Table[ Insert[ IntegerDigits[n], 9, j], {j, 1, Floor[ Log[10, n] + 2]}]]], True], {n, 1, 105}]
CROSSREFS
Sequence in context: A244422 A061896 A366793 * A141581 A179286 A193690
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 16 2002
EXTENSIONS
More terms from Vladeta Jovovic, Apr 17 2002
Edited by Robert G. Wilson v, Apr 18 2002
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 01:36 EDT 2024. Contains 371264 sequences. (Running on oeis4.)