|
| |
|
|
A116068
|
|
Numbers n such that n has non-decreasing digits and the n-th prime has non-increasing digits.
|
|
3
| |
|
|
1, 2, 3, 4, 5, 11, 13, 14, 16, 18, 23, 25, 47, 67, 115, 116, 117, 119, 133, 135, 137, 147, 156, 166, 167, 168, 456, 566, 1166, 1167, 1168, 1178, 1179, 1199, 1225, 1226, 1229, 2479, 3566, 3569, 45567, 67999
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| No more terms < 200000. - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 19 2006
|
|
|
EXAMPLE
| p(67999) = 855331.
|
|
|
MATHEMATICA
| For[n = 1, n < 70000, n++, a := IntegerDigits[n]; c := 0; For[m = 1, m <= Length[a] -1, m++, If[a[[m]] > a[[m + 1]], c := 1; ]]; If[c == 0, a:=IntegerDigits[Prime[n]]; For[m = 1, m <= Length[a] - 1, m++, If[a[[m]] < a[[m + 1]], c := 1; ]]]; If[c == 0, Print[n]]] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 19 2006
|
|
|
CROSSREFS
| Cf. A116066, A116067, A116069.
Sequence in context: A084545 A069908 A130640 * A104420 A188532 A181288
Adjacent sequences: A116065 A116066 A116067 * A116069 A116070 A116071
|
|
|
KEYWORD
| nonn,base,more
|
|
|
AUTHOR
| Giovanni Resta (g.resta(AT)iit.cnr.it), Feb 13 2006
|
| |
|
|
