|
|
|
|
|
|
|
|
|
#13 by Charles R Greathouse IV at Thu Nov 21 12:47:03 EST 2013
|
|
| MATHEMATICA
|
Select[Range[4000], MemberQ[Partition[IntegerDigits[#], 2, 1], {8, 4}]&&!MemberQ[Partition[IntegerDigits[#-1], 2, 1], {8, 4}]&] (* From }]&] (* _Harvey P. Dale, _, Mar 14 2011 *)
|
|
|
|
|
Discussion
|
| Thu Nov 21
| 12:47
| OEIS Server: https://oeis.org/edit/global/2062
|
|
|
|
|
|
|
#12 by Russ Cox at Fri Mar 30 18:56:44 EDT 2012
|
|
|
|
|
|
Discussion
|
| Fri Mar 30
| 18:56
| OEIS Server: https://oeis.org/edit/global/285
|
|
|
|
|
|
|
#11 by T. D. Noe at Mon Mar 14 15:04:50 EDT 2011
|
|
|
|
|
|
|
|
#10 by Joerg Arndt at Mon Mar 14 12:28:20 EDT 2011
|
|
|
|
|
|
Discussion
|
| Mon Mar 14
| 12:38
| Zak Seidov: Frankly, the sequence is rather dull, is it possible at least tag it "less" ? Sorry, Clark!
|
|
|
|
|
|
|
#9 by Zak Seidov at Mon Mar 14 07:52:05 EDT 2011
|
|
| MATHEMATICA
|
Select[Range[4000], !StringFreeQ[ToString[#], "84"]&&StringFreeQ[ToString[#-1], "84"]&]
(* Zak Seidov Mar 14 2011 *)
|
|
| STATUS
|
approved
proposed
|
|
|
|
|
Discussion
|
| Mon Mar 14
| 07:53
| Zak Seidov: As usual I'd try to suggest somewhat simpler Mmca :)
|
|
|
|
|
|
|
#8 by D. S. McNeil at Mon Mar 14 07:43:44 EDT 2011
|
|
|
|
|
|
|
|
#7 by Zak Seidov at Mon Mar 14 06:58:16 EDT 2011
|
|
| NAME
|
Numbers n such that string 8,4 '84' occurs in the base 10 representation of n but not of n-1.
|
|
| STATUS
|
approved
proposed
|
|
|
|
|
|
|
#6 by Harvey P. Dale at Mon Mar 14 06:55:09 EDT 2011
|
|
|
|
|
|
|
|
#5 by Harvey P. Dale at Mon Mar 14 06:54:47 EDT 2011
|
|
| MATHEMATICA
|
Select[Range[4000], MemberQ[Partition[IntegerDigits[#], 2, 1], {8, 4}]&&!MemberQ[Partition[IntegerDigits[#-1], 2, 1], {8, 4}]&] (* From Harvey P. Dale, Mar 14 2011 *)
|
|
| STATUS
|
approved
proposed
|
|
|
|
|
|
|
#4 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004
|
|
| NAME
|
StringNumbers n such that string 8,4 occurs in the base 10 representation of n but not of n-1.
|
|
| KEYWORD
|
nonn,base,new
|
|
|
|
|
|
