|
| |
|
|
A076653
|
|
Smallest prime number not occurring earlier and starting with the end of the previous term.
|
|
5
| |
|
|
2, 23, 3, 31, 11, 13, 37, 7, 71, 17, 73, 307, 79, 97, 701, 19, 907, 709, 911, 101, 103, 311, 107, 719, 919, 929, 937, 727, 733, 313, 317, 739, 941, 109, 947, 743, 331, 113, 337, 751, 127, 757, 761, 131, 137, 769, 953, 347, 773, 349, 967, 787, 797, 7001, 139, 971
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Zak Seidov, Table of n, a (n) for n = 1..10000
|
|
|
MATHEMATICA
| f[s_] := Block[{k = 1, ld = Mod[Last@s, 10]}, While[p = Prime@k; MemberQ[s, p] || ld != Quotient[p, 10^Floor[Log[10, p]]], k++ ]; Append[s, p]]; Nest[f, {2}, 55] (* Robert G. Wilson v *)
|
|
|
CROSSREFS
| Cf. A076652, A076654.
Sequence in context: A052077 A124604 A107801 * A114008 A110354 A162711
Adjacent sequences: A076650 A076651 A076652 * A076654 A076655 A076656
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Oct 28 2002
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Nov 17 2005
|
| |
|
|
