OFFSET
1,1
COMMENTS
One might also include 1 as a term here. - R. J. Mathar, Oct 11 2011
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
16 is a term: 16^3 - 1 = 4095 = 3*3*5*7*13.
MAPLE
isA081258 := proc(n)
numtheory[factorset](n^3-1) ;
if max(op(%)) <= n then
true;
else
false;
end if;
end proc;
for n from 1 to 400 do
if isA081258(n) then
printf("%d, ", n);
end if;
end do: # R. J. Mathar, Oct 11 2011
MATHEMATICA
Select[Range[2, 1000], FactorInteger[#^3 - 1][[-1, 1]] <= #&] (* Jean-François Alcover, Jun 15 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jan Fricke, Mar 14 2003
EXTENSIONS
Name changed by Robert Israel, Nov 11 2016
STATUS
approved