OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
30923 = 17*17*107;
30924 = 2*2*3*3*859;
30925 = 5*5*1237;
30926 = 2*7*47*47;
30927 = 3*13*13*61.
MATHEMATICA
With[{s = Select[Range[10^6], And[MemberQ[#, 2], FreeQ[#, k_ /; k > 2]] &@ FactorInteger[#][[All, -1]] &]}, Function[t, Part[s, #] &@ SequencePosition[t, {1, 1, 1, 1}][[All, 1]]]@ Differences@ s] (* Michael De Vlieger, Jul 30 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 29 2002
STATUS
approved