login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A281533 Numbers such that A279967(n) = 0. 3
17, 23, 47, 57, 93, 107, 155, 173, 233, 255, 327, 353, 437, 467, 563, 597, 677, 705, 743, 863, 905, 1037, 1083, 1187, 1227, 1277, 1433, 1487, 1607, 1655, 1713, 1893, 1955, 2027, 2095, 2147, 2213, 2293, 2357, 2417, 2467, 2487, 2503, 2703, 2719, 2777, 2861, 2993, 3005, 3083, 3251 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

This sequence is neither a subset nor a superset of sequence A278436 since 155 and 817 are in one, but not the other, respectively.

LINKS

Table of n, a(n) for n=1..51.

EXAMPLE

Number 155 = 5*31, equivalent to array position (17, 2), is in the sequence since all prior numbers in column 1 are even as are those in column 2, except 9 which is not a factor of 155.

MATHEMATICA

(* support functions are in A279967*)

a281533[k_] := Module[{ut=upperTriangle[k], ms=Table[" ", {i, 1, k}, {j, 1, k}], h, pos, val, seqL={}}, ms[[1, 1]]=1; For[h=2, h<=Length[ut], h++, pos=ut[[h]]; val=Apply[Plus, Select[Map[ms[[Apply[Sequence, #]]]&, priorPos[pos]], #!=0 && Mod[seqPos[pos], #]==0&]]; If[val==0, AppendTo[seqL, val]]; ms[[Apply[Sequence, pos]]]=val]; seqL]

a281533[81] (* data *)

CROSSREFS

Cf. A278436, A279966, A279967.

Sequence in context: A086532 A159044 A267984 * A278436 A126329 A130098

Adjacent sequences:  A281530 A281531 A281532 * A281534 A281535 A281536

KEYWORD

nonn

AUTHOR

Hartmut F. W. Hoft, Jan 23 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 8 05:55 EDT 2020. Contains 333312 sequences. (Running on oeis4.)