|
Search: id:A076653
|
|
|
| A076653 |
|
Smallest prime number not occurring earlier and starting with the end of the previous term. |
|
+0
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; listen)
|
|
|
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 this_sequence A114008 A110354 A162711
Adjacent sequences: A076650 A076651 A076652 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
