|
| |
|
|
A061448
|
|
a(1) = 2; a(n+1) = smallest prime > a(n) with leading digit equal to final digit of a(n).
|
|
1
| |
|
|
2, 23, 31, 101, 103, 307, 701, 1009, 9001, 10007, 70001, 100003, 300007, 700001, 1000003, 3000017, 7000003, 30000001, 100000007, 700000001, 1000000007, 7000000001, 10000000019, 90000000019, 90000000023, 300000000077
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Index entries for sequences related to final digits of numbers
|
|
|
FORMULA
| a(n)=A054262(n-1), n>2. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 30 2009]
|
|
|
EXAMPLE
| a(5) = 103, hence a(6) = 307.
|
|
|
MATHEMATICA
| a[1]=2; a[n_] := (v=IntegerDigits[a[n-1]]; v1=If[v[[ -1]]>v[[1]], v[[ -1]]*10^(Length[v]-1), If[v[[ -1]]<v[[1]]||Length[v]==1, v[[ -1]]*10^Length[v], a[n-1]]]; For[m=v1+1, !PrimeQ[m], m++ ]; m); Table[a[n], {n, 35}]
|
|
|
CROSSREFS
| Sequence in context: A049568 A049556 A049580 * A115233 A007510 A117242
Adjacent sequences: A061445 A061446 A061447 * A061449 A061450 A061451
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 03 2001
|
|
|
EXTENSIONS
| More terms from Larry Reeves (larryr(AT)acm.org), May 17 2001
Terms from a(18) added by Patrick De Geest (pdg(AT)worldofnumbers.com), Jun 04 2001.
Mathematica program from Farideh Firoozbakht (f.firoozbakht(AT)sci.ui.ac.ir), Aug 30 2003
|
| |
|
|
