|
Search: id:A116068
|
|
|
| A116068 |
|
Numbers n such that n has non-decreasing digits and the n-th prime has non-increasing digits. |
|
+0
4
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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.
Adjacent sequences: A116065 A116066 A116067 this_sequence A116069 A116070 A116071
Sequence in context: A084545 A069908 A130640 this_sequence A104420 A052418 A051800
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
Giovanni Resta (g.resta(AT)iit.cnr.it), Feb 13 2006
|
|
|
Search completed in 0.002 seconds
|
