|
|
A112886
|
|
Positive integers that have no triangular divisors > 1.
|
|
12
|
|
|
1, 2, 4, 5, 7, 8, 11, 13, 14, 16, 17, 19, 22, 23, 25, 26, 29, 31, 32, 34, 35, 37, 38, 41, 43, 44, 46, 47, 49, 52, 53, 58, 59, 61, 62, 64, 65, 67, 68, 71, 73, 74, 76, 77, 79, 82, 83, 85, 86, 88, 89, 92, 94, 95, 97, 98, 101, 103, 104, 106, 107, 109, 113, 115, 116, 118, 119
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Sequence consists of those positive integers not in A113502.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
14 is included because the divisors of 14 are 1, 2, 7 and 14, none of which are triangular numbers > 1.
|
|
MATHEMATICA
|
v={}; Do[If[b=Select[Divisors[n], #>1 && IntegerQ[(1+8#)^(1/2)]&]; b=={}, AppendTo[v, n]], {n, 138}]; v (Firoozbakht)
tfpnQ[n_]:=Module[{nn=120, trnos}, trnos=Rest[Accumulate[ Range[ (Sqrt[8nn+1]-1)/2+1]]]; Intersection[ Divisors[ n], trnos]=={}]; Select[Range[ 120], tfpnQ] (* Harvey P. Dale, Jul 17 2015 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|