The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A152022 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A152022

Numbers > 1 in A000695 which are not in A152021.
(history; published version)

#6 by Michel Marcus at Sun Sep 01 02:36:28 EDT 2019

STATUS

reviewed

approved

#5 by Joerg Arndt at Sun Sep 01 01:58:59 EDT 2019

STATUS

proposed

reviewed

#4 by Amiram Eldar at Sat Aug 31 11:42:24 EDT 2019

STATUS

editing

proposed

#3 by Amiram Eldar at Sat Aug 31 11:39:57 EDT 2019

NAME

Numbers > 1 in A000695 which are not in A152021.

MATHEMATICA

f[n_] := FromDigits[IntegerDigits[n, 2], 4]; s = Array[f, 100, 2]; div[a_, b_] := Divisible[a, b] && a > b; n = 1; s0 = s; While[Length[s] > n, s = Select[s, ! div[#, s[[n]]] &]; n++]; Complement[s0, s] (* Amiram Eldar, Aug 31 2019 *)

CROSSREFS

Cf. A000695 , A152021.

STATUS

approved

editing

#2 by Russ Cox at Fri Mar 30 18:52:52 EDT 2012

AUTHOR

_Vladimir Shevelev (shevelev(AT)bgu.ac.il), _, Nov 20 2008

Discussion

Fri Mar 30

18:52

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

#1 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009

NAME

Numbers > 1 in A000695 which are not in A152021

DATA

16, 20, 64, 65, 68, 80, 84, 85, 256, 260, 272, 273, 276, 320, 324, 325, 336, 340, 1024, 1025, 1028, 1029, 1040, 1044, 1045, 1088, 1092, 1104, 1105, 1108, 1280, 1281, 1284, 1285, 1296, 1300, 1344, 1345, 1348, 1360, 1364, 1365, 4096, 4097, 4100

OFFSET

1,1

CROSSREFS

A000695 A152021

KEYWORD

nonn

AUTHOR

Vladimir Shevelev (shevelev(AT)bgu.ac.il), Nov 20 2008

STATUS

approved