|
|
A230289
|
|
Let m = n-th number not divisible by 3 (A001651); a(n) = position of m in A065075, or -1 if never appears in A065075.
|
|
2
|
|
|
1, 3, 4, 7, 6, 5, 8, 9, 10, 13, 24, 41, 26, 51, 64, 151, 276, 335, 446, 219, 550, 451, 1674, 1685, 2192, 2667, 9220, 17647, 3972, 9221, 17648, 25311, 35776, 25339, 147018, 112397, 146972, 212667, 243892, 243871, 963024, 1263521, 1838078, 2380569, 2380378
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
It is believed that a(n) is always > 0.
|
|
LINKS
|
|
|
MAPLE
|
read transforms; M:=100000; sp:=1; a:=[sp]; s:=sp;
for n from 2 to M do sp:=digsum(s); a:=[op(a), sp]; s:=s+sp; od:
b:=[]:
for n from 1 to 100 do
if (n mod 3) <> 0 then
if member(n, a, 'p') then b:=[op(b), p] else b:=[op(b), -1]; fi;
fi;
od:
b;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|