OFFSET
1,2
COMMENTS
Sequence consists of those positive integers not in A113502.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A132895(n)/2. - Ray Chandler, May 29 2008
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
(PARI) is(n)=fordiv(n, d, if(ispolygonal(d, 3) && d>1, return(0))); 1 \\ Charles R Greathouse IV, Jul 31 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 10 2006
EXTENSIONS
More terms from Farideh Firoozbakht, Jan 12 2006
Name edited (based on a suggestion from Michel Marcus) by Jon E. Schoenfield, Jul 02 2021
STATUS
approved