|
Search: id:A089779
|
|
|
| A089779 |
|
Let n range through the odd numbers skipping multiples of 5; a(n) = n-th prime ending in n. |
|
+0
2
|
|
| 11, 23, 107, 179, 2411, 3413, 5417, 4919, 6121, 5923, 9127, 8629, 9931, 10133, 10937, 11939, 14741, 14243, 16747, 16649, 16451, 18553, 19157, 19259, 22961, 22963, 24767, 25169, 28571, 24373, 28277, 31079, 30181, 29483, 31687, 33589, 33091
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
2411 is the 11-th prime ending in 11: (11, 211, ..., 2111, 2311, 2411)
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := Block[{p = 2, c = 0, m = Floor[ Log[10, n] + 1]}, While[ If[ Mod[p, 10^m] == n, c++ ]; c < n, p = NextPrim[p]]; p]; Map[f, Select[ Table[n, {n, 1, 91, 2}], Mod[ #, 10] != 5 &]] (from Robert G. Wilson v Nov 26 2003)
|
|
CROSSREFS
|
Sequence in context: A092558 A088777 A041238 this_sequence A146084 A014874 A027899
Adjacent sequences: A089776 A089777 A089778 this_sequence A089780 A089781 A089782
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 24 2003
|
|
EXTENSIONS
|
Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 26 2003
|
|
|
Search completed in 0.002 seconds
|
