A172357 n such that the Liouville function lambda(n) take successively, from n, the values 1,-1,1,-1,1,-1

58, 185, 194, 274, 287, 342, 344, 382, 493, 566, 667, 856, 858, 926, 1012, 1014, 1157, 1165, 1230, 1232, 1234, 1267, 1318, 1385, 1393, 1418, 1482, 1484, 1679, 1681, 1795, 1841, 1915, 1917, 2060, 2062, 2064, 2232, 2340, 2342, 2567, 2569, 2627, 2805, 3013

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Maple

with(numtheory): for n from 1 to 4300 do; if (-1)^bigomega(n)=1 and (-1)^bigomega(n+1) = -1 and (-1)^bigomega(n+2) = 1 and (-1)^bigomega(n+3) = -1 and (-1)^bigomega(n+4) = 1 and (-1)^bigomega(n+5) = -1 then print(n); else fi ; od;

Mathematica

Transpose[Transpose[#][[1]]&/@Select[Partition[Table[{n, LiouvilleLambda[ n]}, {n, 3100}], 6, 1], Transpose[#][[2]]=={1, -1, 1, -1, 1, -1}&]][[1]]  Harvey P. Dale, May 19 2012

Prog

(PARI) lambda(n)=(-1)^bigomega(n);
for(n=1, 1e4, if(lambda(n)==1&lambda(n+1)==-1&lambda(n+2)==1&&lambda(n+3)==-1&lambda(n+4)==1&&lambda(n+5)==-1, print1(n", "))) /* Charles R Greathouse IV, Jun 13 2011 */

Crossrefs

Cf. A051470, A028488, A002819.

Sequence in context: A235376 A067914 A250800 * A305156 A334186 A051972

Adjacent sequences: A172354 A172355 A172356 * A172358 A172359 A172360

Keyword

nonn

Author

Michel Lagneau, Feb 01 2010

Status

approved