|
| |
|
|
A113076
|
|
Smallest prime from appending one or more 7 to n.
|
|
0
| |
|
|
17, 277, 37, 47, 577, 67, 877, 97, 107, 11777, 127, 137, 157, 167, 1777, 1877, 197, 20777777, 227, 2377, 2477, 257, 2677, 277, 29777777777777777777777777777777777777777777777777, 307, 317, 3277777, 337
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 1777 is the smallest prime obtained by appending two 7s to 17.
|
|
|
MATHEMATICA
| For[n = 1, n < 50, n++, If[n/7 <= Floor[n/7], k := 1; While[Not[PrimeQ[10^k*n + (10^k - 1)*7/9]], k++ ]; Print[10^k*n + (10^k - 1)*7/9]]] (Steinerberger)
Select[Table[First[Select[Rest[FromDigits/@Table[PadRight[{x}, n, 7], {n, 50}]], PrimeQ]], {x, 35}], NumberQ]//Quiet [From Harvey P. Dale, Jan. 16, 2011]
|
|
|
CROSSREFS
| Cf. A112394.
Sequence in context: A179093 A031417 A029811 * A159503 A188063 A012235
Adjacent sequences: A113073 A113074 A113075 * A113077 A113078 A113079
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Jan 03 2006
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jan 27 2006
|
| |
|
|
