|
| |
|
|
A071320
|
|
Least of four consecutive numbers which are cube-free and not squarefree, i.e. {n,n+1,n+2,n+3} are in A067259.
|
|
1
| |
|
|
844, 1681, 8523, 8954, 10050, 10924, 11322, 17404, 19940, 22020, 23762, 24450, 25772, 27547, 30923, 30924, 33172, 34347, 38724, 39050, 39347, 40050, 47673, 47724, 47825, 49147, 54585, 55449, 57474, 58473, 58849, 58867, 59924, 62865
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| A051903[n]=A051903[n+1]=A051903[n+2]=A051903[n+3]=2
|
|
|
EXAMPLE
| n=844=2.2.211, n+1=845=5.13.13, n+2=846=2.3.3.47, n+4=847=7.11.11
|
|
|
MATHEMATICA
| ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] Do[s=ep[n]; s1=ep[n+1]; s2=ep[n+2]; s3=ep[n+3]; If[Equal[Max[s], 2]&&Equal[Max[s1], 2] &&Equal[Max[s2], 2]&&Equal[Max[s3], 2], Print[n]], {n, 1, 1000000}]
|
|
|
CROSSREFS
| Cf. A063528, A067259.
Sequence in context: A114359 A038013 A078144 * A160212 A188296 A187861
Adjacent sequences: A071317 A071318 A071319 * A071321 A071322 A071323
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 29 2002
|
| |
|
|
