|
| |
|
|
A044028
|
|
Numbers n such that 4 and 7 occur juxtaposed in the base 10 representation of n but not of n+1.
|
|
0
| |
|
|
47, 74, 147, 174, 247, 274, 347, 374, 447, 479, 547, 574, 647, 674, 749, 774, 847, 874, 947, 974, 1047, 1074, 1147, 1174, 1247, 1274, 1347, 1374, 1447, 1479, 1547, 1574, 1647, 1674, 1749, 1774, 1847, 1874, 1947, 1974, 2047
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| okQ[n_]:=Module[{sidn=Sort/@Partition[IntegerDigits[n], 2, 1]}, MemberQ[sidn, {4, 7}]]; Select[Range[2100], okQ[#]&&!okQ[#+1]&] (* From Harvey P. Dale, Feb 14 2012 *)
|
|
|
CROSSREFS
| Sequence in context: A165335 A039425 A043248 * A126095 A132259 A046002
Adjacent sequences: A044025 A044026 A044027 * A044029 A044030 A044031
|
|
|
KEYWORD
| nonn,base,changed
|
|
|
AUTHOR
| Clark Kimberling (ck6(AT)evansville.edu)
|
| |
|
|
