|
Search: id:A089705
|
|
|
| A089705 |
|
Smallest n-digit prime in which the unit place digit is 1 and the k-th most significant digit is prime (2,3,5,7) if k is prime else is composite ( 4,6,8,9,0). |
|
+0
3
|
|
| 31, 251, 4231, 20231, 420221, 2020231, 42020351, 402020251, 4002020251, 20002020721, 420002020271, 2020002020251, 42020002020551, 402020002020521, 4002020002020221, 20002020002020531, 420002020002020231
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
Conjecture: All the composite positions are occupied by a zero except the most significant digit, which in most cases perhaps is 4. Most of the prime positions for p > 5 are occupied by 2.
|
|
EXAMPLE
|
a(6) = 420221.
|
|
MAPLE
|
with(combinat, cartprod): ds:=proc(s) local j, l: l:=nops(s): RETURN(add(s[j]*10^(l-j), j=1..l)):end: p:=[2, 3, 5, 7]:c:=[0, 4, 6, 8, 9]: cf:=[4, 6, 8, 9]: ctpr:=proc(n, s) local m, T, a: a:=s: m:=1: T:=cartprod([seq(piecewise(isprime(n-i+2), p, i=2, cf, c), i=2..n), [1]]): while not T[finished] do m:=ds(T[nextvalue]()): if isprime(m) and not member(m, a) then a:=[op(a), m]: RETURN(a) fi od: end: a:=[]: for n from 2 to 20 do a:=ctpr(n, a) od: op(a); (C. Ronaldo)
|
|
CROSSREFS
|
Cf. A089704, A089706.
Sequence in context: A027846 A042872 A142623 this_sequence A125368 A126526 A008386
Adjacent sequences: A089702 A089703 A089704 this_sequence A089706 A089707 A089708
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 10 2003
|
|
EXTENSIONS
|
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004
|
|
|
Search completed in 0.002 seconds
|
