The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A097255

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A097255

Numbers whose set of base 9 digits is {0,8}.
(history; published version)

#15 by Charles R Greathouse IV at Thu Sep 08 08:45:14 EDT 2022

PROG

(MAGMAMagma) [n: n in [0..500000] | Set(IntegerToSequence(n, 9)) subset {0, 8}]; // Vincenzo Librandi, May 25 2012

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#14 by Michel Marcus at Tue Mar 04 00:06:51 EST 2014

STATUS

proposed

approved

#13 by Jon E. Schoenfield at Tue Mar 04 00:01:33 EST 2014

STATUS

editing

proposed

#12 by Jon E. Schoenfield at Tue Mar 04 00:01:31 EST 2014

PROG

(Maxima) a[0]:0$ a[n]:=9*a[floor(n/2)]+4*(1-(-1)^n)$ makelist(a[n], n, 0, 36); [/* _Bruno Berselli, _, May 26 2012] */

AUTHOR

Ray Chandler, Aug 3 03 2004

STATUS

approved

editing

#11 by OEIS Server at Sat May 26 07:12:02 EDT 2012

LINKS

Vincenzo Librandi, <a href="/A097255/b097255_1.txt">Table of n, a(n) for n = 0..1000</a>

#10 by Joerg Arndt at Sat May 26 07:12:02 EDT 2012

STATUS

proposed

approved

Discussion

Sat May 26

07:12

OEIS Server: Installed new b-file as b097255.txt.  Old b-file is now b097255_1.txt.

#9 by Bruno Berselli at Sat May 26 03:10:46 EDT 2012

STATUS

editing

proposed

Discussion

Sat May 26

04:01

Vincenzo Librandi: @ Neil and E.I.C.: To act on all sequences of this type, you could give me some more sequence? Thank you.

#8 by Bruno Berselli at Sat May 26 02:46:41 EDT 2012

PROG

(Maxima) a[0]:0$ a[n]:=9*a[floor(n/2)]+4*(1-(-1)^n)$ makelist(a[n], n, 0, 36); [Bruno Berselli, May 26 2012]

STATUS

proposed

editing

#7 by Vincenzo Librandi at Sat May 26 01:58:17 EDT 2012

STATUS

editing

proposed

Discussion

Sat May 26

02:01

Vincenzo Librandi: @ Noe: Thanks.

#6 by Vincenzo Librandi at Sat May 26 01:57:52 EDT 2012

LINKS

Vincenzo Librandi, <a href="/A097255/b097255_1.txt">Table of n, a(n) for n = 0..1001000</a>

MATHEMATICA

fQ[n_]:=Union@Join[{0, 8}, IntegerDigits[n, 9]]=={0, 8}; Select[Range[0, 500000], fQ] (* _or *) FromDigits[#, 9]&/@Tuples[{0, 8}, 6](* _Vincenzo Librandi_, May 25 2012 *)

STATUS

proposed

editing